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I.   INTRODUCTION 

A.   BACKGROUND 

The  microcomputer  was  introduced  in  the  marketplace  a 
little  over  a  decade  ago,  and  has  proceeded  to  develop  at 
an  astounding  rate.   The  very  large-scale  integrated  (VLSI) 
microcomputer  of  today  performs  at  speeds  four  to  six  orders 
of  magnitude  greater  than  first  generation  computers.   The 
power,  utility  and  versatility  of  these  microcomputers  is 
such  that  their  capability  exceeds  that  of  second  generation 
computers,  and  they  are  as  powerful  as  many  minicomputer 
systems  in  a  variety  of  applications.   Indeed,  the  increas- 
ing capabilities  of  microcomputers  have  driven  the  latest, 
high-speed  minicomputers  to  attain  the  versatility  and 
performance  standards  of  the  former  medium-scale  mainframe 
computers  [Ref.  1:  pp.  iii-8] . 

Today,  an  unprecedented  amount  of  computing  power  is 
available  at  a  price  which  can  be  afforded  by  even  the 
smallest  of  engineering  firms  and  research  groups.   Two 
years  ago,  research  into  the  implementation  of  finite 
element  software  on  eight  bit  microcomputers  was  conducted 
by  Mulholland  [Ref.  2] .   At  that  time,  the  cost  of  the 
computer  system  used  for  his  research  was  approximately 
$6,000  [Ref.  2:  p.  15].   The  cost  of  each  of  the  systems 
used  in  this  research  is  about  the  same,  but  there  is 
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hardly  a  comparison  in  capability  between  the  Apple  II  Plus 
used  by  Mulholland,  and  the  IBM  PC-XT  of  today.   The  problem 
today  is  that  there  is  not  a  large  library  of  engineering 
software  available  for  engineering  firms  and  research  groups 
to  take  advantage  of.   Wilson  [Ref.  6]  states  that  less 
than  one  percent  of  current  day  finite  element  analysis  is 
conducted  on  microcomputers.   This  lack  of  software  leaves 
small  firms  and  research  groups  (who  do  not  have  the  staff, 
resources  and  time  to  develop  extensive  programs  themselves) 
unable  to  take  advantage  of  the  computing  power  available 
to  them.   For  this  reason,  there  is  a  need  to  develop 
engineering  software  which  will  take  advantage  of  the 
microcomputer's  capabilities.   Unfortunately,  at  this  time, 
the  limitations  and  capabilities  of  the  software/micro- 
computer combination  are  largely  unexplored.   This  thesis 
will  attempt  to  shed  light  on  the  capabilities  of  the 
sixteen  bit  microcomputer  to  perform  general  finite  element 
analysis . 

1 .   Eight  Bit  Micros  and  Finite  Elements 

When  first  introduced,  microcomputers  used  an  eight 
bit  architecture  which  provided  several  stumbling  blocks  to 
the  implementation  of  engineering  software  in  general.   The 
most  significant  of  these  stumbling  blocks  was  the  memory 
size  limitation,  and  the  second  was  a  limited  instruction 
set.   The  maximum  addressable  memory  of  the  most  advanced 
of  these  systems  was  65,536  bytes.   This  address  space  was 


often  limited,  even  further,  by  the  presence  of  read  only 
memory  (ROM)  chips  which  contained  significant  portions 
of  the  operating  system  for  the  computer.   The  result  was 
a  severe  limitation  to  the  size  of  application  software, 
as  well  as  the  size  of  data  objects.   The  instruction  set 
limitation  was  significant  because  it  complicated  the 
implementation  of  high  level  language  compilers,  and  almost 
all  engineering  applications  are  dependent  on  the  avail- 
ability of  high  level  languages.   These  two  problems  com- 
bined to  cause  another  problem  which  was  the  immaturity 
of  support  software.   The  limited  instruction  sets  required 
more  code  to  implement  desired  features,  yet  the  small 
memory  size  restricted  the  amount  of  code  severely.   The 
result  was  that  operating  systems,  compilers,  and  inter- 
preters were  notorious  for  the  things  they  could  not  do. 
Nevertheless,  there  have  been  a  number  of  commercial  as 
well  as  academic  implementations  of  finite  element  codes 
on  eight  bit  microcomputers.   All  of  these  implementations 
are  limited  to  relatively  small  problems,  and  almost  all 
are  special  application  programs  which  solved  only  one 
type  of  problem  (typically  beams,  trusses,  or  frames). 

As  time  progressed,  the  hardware  and  operating  systems 
of  microcomputers  matured.   With  the  advent  of  high  speed 
floppy  diskette  drives  and  disk  operating  systems,  the 
idea  of  using  out-of-core  linear  equation  solvers  to  solve 
larger  systems  of  equations  on  microcomputers  became 
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achievable.   Mulholland  [Ref.  2:  pp.  36-46]  demonstrated 
the  ability  of  eight  bit  machines  to  produce  an  acceptable 
result  using  an  out-of-core  technique.   As  might  be 
expected,  solution  times  were  somewhat  slow,  but  the 
method  increased  the  size  of  problem  which  could  be  solved 
with  a  limited  amount  of  memory.   After  verifying  the 
utility  of  the  eight  bit  machine  and  out-of-core  solver 
combination,  Mulholland  [Ref.  2:  pp.  52-70]  continued  his 
investigation  by  implementing  a  modification  of  Mallory's 
[Ref.  3]  STAP-NPS  on  the  Apple-II  Plus  microcomputer. 

The  result  was  a  finite  element  system  which  was  cum- 
bersome to  use,  and  supported  only  one  element  type.   The 
system  required  the  attention  of  the  user  to  shift  five 
floppy  diskettes  between  four  disk  drives  in  response  to 
requests  from  the  run  time  system.   In  his  tests,  over  two 
hours  were- required  to  solve  a  system  of  160  equations 
having  a  half-bandwidth  of  64.   Mulholland 's  conclusion 
[Ref.  2:  pp.  72-74]  was  that  the  system  he  used  was  not  a 
suitable  tool  for  serious  finite  element  work.   He  cited 
six  primary  reasons  why  the  system  was  inadequate  for  the 
application,  but  it  is  significant  to  note  that  five  of 
the  six  reasons  were  actually  operating  system/compiler 
limitations.   In  other  words,  five  of  the  six  were  due 
to  immaturity  of  support  software  for  the  Apple-II  Plus 
system  at  the  time. 


11 


2 .   Sixteen  Bit  Microcomputer  Introduced 

In  1981  and  1982  the  sixteen  bit  LSI  microcomputer 
was  introduced  to  the  market.   While  the  speed  of  these 
machines  was  as  much  as  four  or  five  times  greater  than 
the  eight  bit  predecessors,  the  largest  advantages  were 
realized  by  the  improved  architecture  and  instruction  sets. 
Rao  [Ref.  1:  p.  205]  cites  a  ten  fold  improvement  in  execu- 
tion time  for  the  Intel  8086  over  the  Intel  8080A  while 
the  increase  in  clock  speed  was,  at  most,  4  times  that  of 
the  8080A.   Obviously,  the  influence  of  the  architecture 
and  instruction  set  is  strongly  significant.   One  of  the 
most  important  improvements  delivered  by  the  sixteen  bit 
processors  was  the  amount  of  addressable  memory;  the 
smallest  address  space  among  the  various  architectures 
was  1024  kilobytes.   This  is  not  meant  to  imply  that  appli- 
cation software  was  able  to  take  advantage  of  that  address 
space.   There  were  no  compilers,  at  the  time,  that  would 
allow  addressing  outside  a  64  kilobyte  page.   Even  today, 
compilers  that  allow  addressing  beyond  the  64  kilobyte 
page  are  just  beginning  to  enter  the  market.   However,  a 
tremendous  amount  of  support  software  such  as  compilers, 
interpreters,  spread  sheets,  etc.  were  no  longer  limited 
to  64  kilobytes  of  memory.   As  a  result,  support  software 
began  to  grow  in  size  and  capability.   In  addition  to  the 
increase  in  address  space  a  number  of  the  systems  were  able 
to  make  use  of  a  separate  coprocessor,  the  Intel  8087,  for 
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numeric  data  processing.   Although,  no  specific  standard 
has  been  developed  for  comparing  processing  times  with 
and  without  the  coprocessor,  most  authors  agree  that  addi- 
tion of  the  coprocessor  has  been  shown  to  increase  the 
speed  of  numeric  computation  significantly  [Ref .  4,  5] . 

The  introduction  of  the  sixteen  bit  machines, 
however,  did  not  cause  an  immediate  surge  in  finite  element 
applications  on  microcomputers.   Wilson  [Ref.  6]  points  out 
that  the  development  of  engineering  software  is  dependent 
upon  the  availability  of  a  stable  operating  system,  and  a 
compatible  FORTRAN  compiler.   While  today's  microcomputers 
are  seldom  marketed  without  an  operating  system,  the 
initial  versions  of  operating  systems  have  been  notoriously 
unreliable  and  unsophisticated.   Therefore,  a  lag  exists 
between  the  introduction  of  the  hardware,  and  the  develop- 
ment of  a  stable  operating  system  and  a  compatible  FORTRAN 
compiler.   The  lag  in  the  case  of  the  eight  bit  machines 
was  nearly  ten  years,  but  because  of  the  experience  gained 
in  the  development  of  these  systems  the  lag  was  shortened 
considerably  for  sixteen  bit  microcomputers. 

At  the  outset  of  this  investigation,  the  market 
boasted  a  variety  of  disk  operating  systems  which  supported 
floppy  disks  as  well  as  the  newer  high-speed  hard  disks. 
There  were  two  FORTRAN  compilers  available  which  had  under- 
gone a  number  of  modifications  and  promised  the  maturity 
necessary  to  support  finite  element  applications.   There 
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was  also  a  wide  variety  of  peripheral  plotting  devices 
and  other  equipment  and  software  to  support  engineering 
applications . 

B.   PURPOSE  AND  SCOPE  OF  THE  INVESTIGATION 

This  investigation  was  conducted  as  an  attempt  to 
implement  a  general  purpose  finite  element  program  on  a 
sixteen  bit  microcomputer,  with  the  intent  of  determining 
whether  or  not  the  resulting  system  was  practically  useful. 
Wilson  [Ref.  6]  makes  the  assertion  that  new  finite  element 
work  will  be  done  in  FORTRAN,  primarily,  because  all  general 
purpose  finite  element  programs,  to  date,  have  been  written 
in  FORTRAN.   This  author  supports  the  assertion  with  the 
observation  that  FORTRAN  is  also  the  most  widely  used  and 
supported  language  in  the  engineering  community.   In  addition, 
FORTRAN  77  eliminates  most  of  the  practical  objections  to 
FORTRAN  as  a  programming  language.   Much  previous  work  has 
gone  into  the  implementation  of  the  more  notable  general, 
finite  element  programs  in  use  today,  and  the  construction 
of  these  programs  is  a  project  which  requires  considerable 
investment  in  terms  of  manpower  and  dollars  [Ref.  6] . 
Since  the  purpose  of  the  investigation  was  to  evaluate  the 
usefulness  of  the  resultant  program/machine  combination, 
it  was  desirable  to  implement  a  system  of  moderate  com- 
plexity in  order  to  provide  a  rigorous  test.   Therefore, 
the  decision  was  made  to  convert  an  appropriate,  existing 
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program  rather  than  to  reinvent  the  wheel .   The  program  which 
was  chosen,  called  MEF  ( "Methode  des  Elements  Finis"),  was 
written  at  the  Universite  de  Technologie,  Compiegne,  France. 
Justification  for  the  choice  of  MEF  is  provided  in  section 
1.5  below.   Initially,  it  was  hoped  that  graphics,  and  user 
friendly  input  routines  could  be  .added  to  the  implementation, 
however,  time  constraints  limited  the  investigation  to  con- 
version of  the  existing  software. 

C.   CHOICE  OF  THE  MACHINE 

The  major  considerations  influencing  the  choice  of  the 
microcomputer  for  this  study  were: 

(1)  Availability  and  support  of  system  hardware  (includ- 
ing peripherals). 

(2)  The  existence  of  a  FORTRAN  compiler  compatible  with 
the  system. 

(3)  The  existence  of  a  compatible,  FORTRAN  callable, 
graphics  package  for  future  implementation  of  graphics. 

(4)  System  cost. 

(5)  The  existence  of  a  wide  range  of  technical  support 
for  hardware  maintenance. 

(6)  The  availability  of  a  wide  range  of  commercial 
software  for  the  system. 

The  last  two  considerations  are  to  insure  that  the 
chosen  system  was  maintainable,  and  versatile.   Presumably, 
any  firm  or  research  group  considering  the  purchase  of  a 
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microcomputer  would  desire  to  use  it  for  more  than  finite 
element  analysis.   The  existence  of  technical  support  and 
commercially  available  software  would  be  significant  con- 
siderations in  the  choice  of  a  system.   System  hardware 
considerations  included  floppy  disks,  hard  disks,  modems, 
printers,  plotters,  graphical  input  devices  (digitizers, 
joy  sticks,  mouse,  etc.),  and  the  ability  to  support  a 
large  amount  of  memory. 

At  the  time  equipment  for  the  project  had  to  be  chosen 
IBM1 s  complete  domination  of  the  microcomputer  market  made 
the  choice  of  the  IBM  PC  or  a  PC  compatible  microcomputer 
the  logical  choice  of  hardware  for  the  system.   In  addition, 
the  IBM  PC  was  widely  available  at  the  Naval  Postgraduate 
School.   IBM's  domination  of  the  market  also  spawned  a 
tremendous  industry  aimed  at  producing  peripherals  and 
software  for  the  IBM  PC.   Therefore,  it  was  clear  that 
capable  language  compilers,  graphics  devices,  graphics 
software,  and  other  software  would  develop  more  quickly 
and  predictably  for  the  IBM  PC  than  for  other  systems. 

In  the  end,  two  systems  were  used  to  conduct  the 
investigation:   an  IBM  PC-XT  available  at  the  Naval 
Postgraduate  School,  and  a  Columbia  MPC .   The  Columbia 
MPC  was  chosen  for  use  at  home  because  of  its  lower  cost 
and  high  degree  of  compatibility  with  the  IBM  PC. 
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1 .   Configuration  of  the  System 

Differences  between  the  two  machines  chosen  for  this 
study  are  minimal.   The  description  which  follows  is  appli- 
cable to  both  systems  with  exceptions  as  noted. 


COMPONENT 
CPU 

MEMORY 
DISPLAY 


MASS 
STORAGE 


PRINTER 


SERIAL 
PORTS 


Table  I.   Configuration  of  the  System 

DESCRIPTION  COMMENTS 

INTEL  3  088  with  the 
INTEL  8087  coprocessor 


512  kilobytes 

color  monitor 

with  graphics  adapter 

and  a  monochrome 

display 


one  5.25  inch,  double 
density,  dual  sided 
floppy  diskette  drive 
and  one  ten  megabyte 
hard  disk  drive 


graphics  capable,  dot 
matrix,  parallel 
printer 

two  (one  used  for  main- 
frame communications , 
and  one  for  a  graphics 
input  device  in  support 
of  future  graphics 
development) 


the  Columbia  sup- 
ported a  graphics 
capable  monochrome 
monitor  with  a 
graphics  adapter 

the  Columbia  system 
initially  supported 
two  5.2  5  inch,  double 
density,  dual  sided 
floppy  diskette 
drives  and  no  hard 
disk  drive 


The  hard  disk  was  not  required  for  the  development 
of  the  MEF  system,  however,  the  availability  of  the  hard  disk 
cut  compile  and  linking  time  almost  in  half  over  the  Columbia 
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floppy  disk  system.   When  compile  and  link  times  approached 
two  hours  on  floppy  disks  for  the  complete  MEF  system,  the 
increased  speed  of  the  hard  disk  was  significant.   Later 
in  the  investigation,  a  fifteen  megabyte  hard  disk  was 
added  to  the  Columbia  MPC . 

At  the  beginning  of  the  investigation  it  was  impos- 
sible to  determine  the  amount  of  memory  which  would  be  re- 
quired to  implement  MEF.   However,  the  original  implementation 
of  MEF  on  a  VAX  78  0  minicomputer  contained  a  working  array 
consisting  of  160  kilobytes.   The  memory  size  of  512  kilo- 
bytes was  chosen  because  it  was  the  amount  which  would  fully 
populate  the  memory  expansion  board  chosen,  and  it  was  felt 
that  it  would  be  large  enough  to  minimize  the  difficulty  in 
implementing  program  overlays  if  overlays  became  necessary. 

Both  systems  run  using  functionally  identical  oper- 
ating systems  (MS  DOS  for  the  Columbia  and  PC  DOS  for  the 
IBM).   Indeed,  no  modifications  of  any  kind  were  required 
to  carry  the  software  between  the  two  systems.   Even  the 
compiled  and  linked  programs  could  be  carried  between  the 
systems . 

2.   CPU  Speed  Tests 

CPU  speed  for  the  two  systems  is  advertised  to  be 
4.77  MHz.   However,  the  hardware  and  operating  systems  of 
both  machines  are  extensively  interrupt  driven.  No  criticism 
is  intended  of  this  extremely  powerful  method  of  implemen- 
tion,  however,  it  was  known  that  the  effective  speed  of  the 

18 


system  would  be  somewhat  lower  than  the  clock  speed  because 
of  the  system  overhead  created  by  extensive  use  of  inter- 
rupts and  interrupt  handlers.   For  this  reason,  a  simple 
test  was  devised  to  determine  the  processor  speed  available 
to  a  user  program  (apparent  speed)  to  compare  with  eight 
bit  processor  speeds. 

The  test  involved  writing  a  simple  assembly  language 
routine  which  would  place  the  processor  in  a  loop  of  speci- 
fied length.   The  system  clock  was  accessed  just  before 
and  just  after  the  loop  to  compute  the  time  spent  in  the 
loop.  [Ref.  7]  was  used  to  determine  the  number  of  clock 
cycles  in  the  loop,  and  the  number  of  times  through  the 
loop  was  chosen  to  be  large  enough  so  that  the  computation 
time  involved  in  accessing  the  clock  would  not  significantly 
influence  the  resultant  computation.   The  program  and  cal- 
culations used  are  detailed  in  Appendix  A.   The  result  of 
the  test  indicated  that  the  apparent  speed  of  the  systems 
is  approximately  3.56  MHz  (worst  case).   This  test  was 
somewhat  subjective,  however,  the  result  gave  some  insight 
into  the  minimum  performance  which  could  be  expected  from 
the  system.   While  the  3.5  MHz  speed  is  significantly  lower 
than  4.77  MHz,  it  is  still  about  one  and  a  half  times 
greater  than  typical  eight  bit  processor  speeds;  coupled 
with  a  better  architecture  and  instruction  set  it  was  clear 
that  significant  things  could  be  expected. 
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3 .   Matrix  Solution  Demonstration 

In  comparison  with  the  matrix  solution  tests  con- 
ducted by  Mulholland  [Ref.  2:  pp.  45-48]  tests  of  the  IBM 
PC-XT,  and  the  Columbia  MPC  configured  with  512  kilobytes 
of  RAM  yielded  significantly  faster  solution  times  for 
even  larger  matrices  than  those  tested  by  Mulholland.   The 
tests  were  conducted  using  the  FORTRAN  program  in  Appendix 
B  to  solve  double  precision,  fully  populated,  matrices. 
The  solver  uses  an  LU  decomposition  followed  by  back  sub- 
stitution, and  takes  no  advantage  of  symmetry  or  bandwidth. 
The  results  are  as  follows: 

Table  II.   Matrix  Solution  Benchmark  Tests 

DEGREES  PREDICTED  ACTUAL 

FREEDOM  SOLUTION  TIME  SOLUTION  TIME 

25  .   unknown  0.0577  min. 

32  .12  min.  .119  min. 

100  3.69  min.  3.48  min. 

200  29.54  min.  27.56  min. 

The  first  test  was  conducted  on  a  matrix  whose 
storage  requirements  would  not  exceed  64  kilobytes,  but 
would  be  large  enough  to  provide   a  usable  benchmark.   The 
32  degree  of  freedom  (DOF)  matrix  was  run  for  direct  com- 
parison with  the  results  obtained  by  Mulholland  [Ref.  2: 
pp.  45-46] .   As  can  be  seen  from  the  table,  the  time 
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required  for  solution  was  small  as  compared  with  the  Apple 
II  Plus  best  time  of  2.68  minutes,  and  the  HP  9845  best 
time  of  0.87  minutes.   In  comparison  with  Mulholland ' s 
reported  solution  time  of  approximately  2.5  hours  for  a 
160  DOF  problem  having  a  bandwidth  of  64,  test  four  took 
only  27.56  minutes. 

The  solution  time  for  the  type  of  solver  used  varies 
with  the  cube  of  the  number  of  degrees  of  freedom  (i.e.,  a 
two  fold  increase  in  DOF  would  predict  an  increase  in  solu- 
tion time  of  eight) .   The  predicted  times  for  the  last 
three  tests  were  based  on  the  actual  execution  time  for 
the  first  test.   Since  the  actual  times  are  even  faster 
than  the  predicted  times  the  conclusion  can  be  drawn  that 
the  overhead  of  addressing  outside  a  6  4  kilobyte  memory 
page  is  not  excessive  for  this  compiler,  and  does  not  seem 
to  vary  with  how  far  outside  the  memory  page  the  addressing 
goes.   If  the  results  of  test  three  are  used  to  predict 
test  four  the  resultant  prediction  would  be  27.84  minutes. 
As  the  table  shows,  this  is  very  close  to  the  actual  execu- 
tion time.   It  is  important  to  note  that  for  the  size 
matrices  tested,  and  the  amount  of  memory  available  the 
solutions  were  achieved  in-core.   Therefore,  in  many 
respects,  the  comparison  with  Mulholland ' s  data  is  infor- 
mative, but  not  exactly  fair. 

The  significance  of  the  comparison  is  that  it  shows 
the  size  of  problem  which  can  be  solved  in  a  relatively 
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short  period.   The  in-core  solution  of  a  200  DOF,  double 
precision  system  is  important  both  because  it  has  only 
recently  become  possible,  and  because  it  represents  the 
solution  of  a  moderate  sized  finite  element  system  with  a 
maximum  bandwidth.   Larger  systems  could  be  solved  in-core 
if  bandwidth  were  minimized,  and  the  solution  technique 
took  advantage  of  symmetry  and  bandwidth  characteristics, 
as  is  done  with  most  modern  finite  element  programs.   For 
systems  which  take  advantage  of  these  characteristics,  the 
solution  varies  as  the  product  of  DOF  and  the  square  of  the 
bandwidth.   This  means  that  a  finite  element  system  having 
a  bandwidth  of  eighty  and  five  hundred  degrees  of  freedom 
would  be  solved  in  about  one  third  the  time  as  test  four 
above  (after  assembly) ,  or  if  a  factor  of  three  is  assumed 
for  all  the  processing,  it  would  take  approximately  the 
same  time  as  test  four.   Even  larger  systems  could  be  solved 
using  out-of-core  techniques,  but  a  fairly  large  number  of 
problems  can  now  be  solved  in-core. 

D.   CHOICE  OF  COMPILER 

At  the  start  of  this  investigation,  the  Microsoft 
FORTRAN  compiler  (version  3.1)  was  the  only  one  which 
offered  features  that  might  be  used  to  implement  arrays 
requiring  more  than  65,536  bytes  of  storage.   In  order  to 
avoid  typical  limits  on  data  sotrage,  Microsoft  reserved  a 
full  64k  segment  for  each  named  common  block.   In  support 
of  portability,  the  compiler  offered  a  complete  ANSI  FORTRAN 
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77  Subset  with  a  few  extensions  to  the  full  language. 
Version  3.1  was  used  for  most  of  the  preliminary  work 
with  MEF ,  however,  difficulties  involved  in  restructuring 
the  program  to  take  advantage  of  the  Microsoft  named  com- 
mon block  features  prevented  the  implementation  of  MEF 
with  full  sized  arrays.   Later  in  the  investigation, 
Microsoft  FORTRAN  was  updated  to  version  3.2.   The  new 
version  supported  unrestricted  array  sizes,  overlay  sup- 
port, and  an  improved  support  for  the  Intel  8087  math 
coprocessor. 

E.   CHOICE  OF  PROGRAM  FOR  CONVERSION 

To  provide  a  sufficiently  rigorous  test  of  the  computer 
and  software  combination  it  was  desirable  to  implement  a 
general  finite  element  program  of  moderate  to  robust  com- 
plexity.  The  characteristics  of  such  a  program  include: 

1.  The  ability  to  solve  a  variety  of  problems  in- 
cluding problems  of  elasticity,  heat  transfer,  and  fluid 
mechanics. 

2.  A  choice  of  element  types,  and  the  ability  to  add 
elements  as  needed. 

3.  The  ability  to  solve  both  static  and  dynamic 
problems  of  large  size  involving  more  than  one  element 
type.   Including  problems  having  different  degrees  of 
freedom  at  each  node,  symmetric  or  nonsymmetric  element 
matrices . 
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4.  The  solution  of  eigen  value  problems. 

5.  The  ability  to  solve  nonlinear  problems. 

For  the  purpose  of  implementation  of  a  finite  element 
code  on  a  microcomputer  it  would  also  be  useful  if  the 
program  included  an  out-of-core  equation  solver  to  elimi- 
nate severe  restrictions  on  problem  size,  and  block  struc- 
tured code  to  minimize  the  difficulty  of  developing  overlays 
if  necessary. 

Practical  considerations  included  the  availability  of 
source  code  and  thorough  documentation  for  the  program. 
It  was  also  necessary,  because  of  time  constraints,  to 
have  the  source  on  some  type  of  machine  readable  media. 

One  program  which  satisfied  most  of  the  above  char- 
acteristics was  called  MEF .   In  addition,  there  was  a 
version  of  MEF  available  at  the  Naval  Postgraduate  School 
which  ran  on  the  VAX  780  under  the  VMS  operating  system. 
The  documentation  for  MEF  was  contained  in  a  book  [Ref.  8] 
which  was  translated  from  French  by  Professor  Gilles  Cantin 
of  the  Naval  Postgraduate  School.   Therefore,  this  investi- 
gation chose  MEF,  the  "Methode  des  Elements  Finis,"  to 
convert  for  implementation  on  the  IBM  PC-XT  and  Columbia 
MPC  microcomputers. 
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II.   CONVERSION  OF  MEF 

A.   GENERAL 

The  version  of  MEF  which  was  available  at  the  Naval 
Postgraduate  School  was  written  in  FORTRAN  IV.   The  FORTRAN 
77  compiler  on  the  VAX  780  at  the  Naval  Postgraduate  School 
was  able  to  compile  the  FORTRAN  IV  code  with  no  alterations, 
and  the  result  was  tested  using  problems  for  which  the 
solutions  have  been  published  [Ref.  8:  pp.  447-503]. 
However,  the  FORTRAN  77  implementation  on  the  VAX  is  a 
robust  version  of  ANSI  standard  FORTRAN  77,  with  many 
extensions  which  provide  compatibility  with  earlier  ver- 
sions of  FORTRAN.   The  Microsoft  FORTRAN  version  3.1  which 
was  used  at  the  beginning  of  this  study  met  the  require- 
ments of  the  ANSI  subset  of  FORTRAN  77  with  a  few  exten- 
sions to  the  full  language. 

In  general,  most  of  the  problems  that  occur  in  convert- 
ing engineering  applications  programs  from  FORTRAN  IV  to 
FORTRAN  77  are  tied  to  the  character  and  string  handling 
differences  between  the  two  versions.   Occasionally, 
problems  arise  in  the  conversion  of  do  loops  because 
FORTRAN  IV  did  not  prevent  the  poor  programming  practice 
of  jumping  into  the  range  of  a  do  loop.   Additional  prob- 
lems arise  when  using  the  subset  language  because  it  does 
not  support  BLOCK  DATA  modules  and  requires  all  occurrences 
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of  a  named  common  block  to  be  exactly  the  same  length. 
These  two  problems  are  mentioned  because  of  their  common 
use  in  engineering  applications,  and  because  of  their  ex- 
tensive use  in  MEF .   Aside  from  these  general  areas,  con- 
siderations specific  to  implementation  on  a  microcomputer 
include  restrictions  on  array  size  imposed  by  the  compiler, 
and  memory  size  limitations  imposed  by  the  hardware/ 
operating  system  (the  operating  system  for  the  IBM  PC  does 
not  support  virtual  memory).   Version  3.1  of  the  Microsoft 
Compiler  supported  a  maximum  array  size  of  65,366  bytes 
(approximately  8,170  double  precision  words),  and  a  maximum 
subscript  value  of  32,767  [Ref.  9:  p.  63].   As  mentioned 
previously,  version  3.1  provided  some  relief  with  regard 
to  memory  restrictions  by  reserving  64  kilobytes  of  storage 
for  each  named  common  block  [Ref.  10:  p.  54]  . 

The  conversion  of  MEF  took  place  in  two  major  phases. 
The  first  phase  used  Microsoft  FORTRAN  version  3.1,  and 
was  unsuccessful.   The  second  phase  used  Microsoft  FORTRAN 
version  3.2  which  was  actually  two  full  releases  improved 
over  version  3.1.   The  second  phase  was  successful  (with 
some  restrictions)  after  a  number  of  problems  with  the 
compiler  (bugs)  were  identified  and  circumvented. 

B.   PHASE  ONE 

The  original  version  of  MEF  was  approximately  4800 
lines  long  which  included  the  comments  (written  in  French) . 
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There  are  very  few  microcomputer  based  text  editors  which 
will  handle  files  of  that  length,  and  the  ones  that  do 
become  totally  bogged  down  with  the  overhead  of  managing 
the  file.   It  was  determined  that  the  most  effective  way  to 
proceed  would  be  compile  approximately  500  lines  of  code  on 
the  microcomputer  to  identify  the  specific  items  which 
could  be  changed  globally  in  the  original  code.   After  the 
necessary  modifications  were  determined,  they  were  made  to 
the  entire  file  using  the  VAX  text  editor,  EDT.   When  the 
modifications  were  complete  the  large  file  was  broken  into 
five  separate  segments  of  approximately  1000  lines  each  and 
transferred,  via  modem,  to  five  separate  floppy  diskettes. 
Five  diskettes  were  required  so  there  was  room  to  edit  and 
compile  the  separate  modules.   The  Microsoft  compiler  creates 
intermediate  (scratch)  files  which  are  almost  twice  the  size 
of  the  source  file.   The  easiest,  safest  place  to  place  the 
scratch  files  is  on  the  same  diskette  as  the  source  file, 
and  1000  lines  of  source  code,  en  the  average,  create  scratch 
files  which  nearly  fill  the  diskette. 

FORTRAN  does  not  support  true  dynamic  memory  allocation, 
and  will  not  allow  the  direct  manipulation  of  array  sizes 
during  execution.   Therefore,  MEF ,  like  many  other  finite 
element  program,  implements  a  pseudo-dynamic  memory  alloca- 
tion so  that  array  sizes  may  be  altered  during  execution. 
In  order  to  do  this,  all  arrays  are  declared  as  one  dimen- 
sional arrays  and  stored  sequentially  in  a  single  large 
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working  array.   A  table  of  pointers  is  made  to  keep  track 
of  the  beginning  of  each  array,  and  as  tables  are  deleted 
the  separate  tables  are  moved  to  accommodate  the  change. 
MEF  defines  the  large  working  array,  called  VA,  to  be  in 
blank  common,  and  makes  extensive  use  of  named  common  for 
all  other  common  block  applications.   For  this  reason,  the 
basic  structure  of  MEF  had  to  be  altered  to  implement  its 
conversion  with  the  Microsoft  Compiler  version  3.1.   There 
were  some  15  named  common  blocks  in  MEF,  and  since  the 
compiler  reserved  64  kilobytes  for  each  one,  approximately 
960  kilobytes  would  have  been  used  just  for  common  block 
allocation.   Needless  to  say,  there  was  not  enough  memory 
available  even  if  the  compiler/linker  combination  were 
capable  of  handling  the  problem. 

The  program  structural  change  attempted,  was  to  switch 
all  of  the  elements  in  named  common  blocks  to  blank  common, 
and  the  single  array  VA  from  blank  common  to  named  common. 
It  was  envisioned  that  several  named  common  blocks  could 
eventually  be  used  so  that  the  actual  size  of  the  working 
array  could  be  larger  than  35,366  bytes.   Considerable 
time  was  spent  in  effecting  this  change,  and  trying  to  get 
the  resultant  version  of  MEF  to  work.   However,  the  changes 
were  too  comprehensive,  and  the  attempt  was  aborted  when  a 
new  version  of  the  compiler  was  received  in  May  of  1984. 
The  improvements  in  version  3.2  allowed  the  complete  aban- 
donment of  the  restructuring  approach,  and  while  phase  one 
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was  unsuccessful,  the  time  spent  was  not  wasted.   It  allowed 
familiarization  with  the  structure  of  KEF ,  and  with  the 
specific  areas  where  the  FORTRAN  IV  code  needed  to  be 
altered  for  compatibility  with  subset  FORTRAN  77.   In  addi- 
tion, it  provided  considerable  familiarization  with  the 
operating  system,  editors,  and  hardware  of  both  the  VAX  and 
the  IBM  PC-XT/COLUMBIA  MPC .  ■ 

C.   PHASE  TWO 

A  new  version  of  MEF  which  contained  english  comments 
was  received  about  the  same  time  as  the  new  version  of  the 
Microsoft  Compiler.   Once  again,  proceeding  as  before,  a 
smaller  segment  of  code  was  used  to  determine  the  global 
changes  required  on  the  main  body  of  the  code,  before  trans- 
ferring it  to  floppy  diskettes.   Because  of  the  changes  in 
Microsoft  FORTRAN  version  3.2,  there  were  significantly 
fewer  alterations  required  to  the  global  structure  of  MEF; 
all  of  the  initial  changes  pertained,  strictly,  to  the 
treatment  of  characters  and  strings ,  and  to  the  task  of 
making  the  named  COMMON  blocks  the  same  length  in  each 
reference. 

1 .   Microsoft  Version  3.2  Improvements 

Improvements  in  the  compiler  which  affected  the 
implementation  of  MEF  are  as  follows: 

1.  Support  for  the  BLOCK  DATA  statement. 

2.  Support  for  arrays  and  COMMON  blocks  longer 
than  64  kilobytes. 
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3.  Inclusion  of  A  simple  overlay  linker  (overlays 
were  unnecessary  in  the  end,  but  at  the  time  the  investiga- 
tion started  there  was  no  way  to  tell  whether  or  not  they 
would  be  required) . 

4.  Better  support  for  the  Intel  8087  coprocessor 
including  implementation  of  the  IEEE  floating  point  math 
standard  (the  default  for  this  version) . 

From  the  point  of  view  of  this  investigator,  the 
single  most  important  change  in  the  Microsoft  Compiler  was 
the  support  for  large  arrays  and  common  blocks.   This  is 
the  change  which  eliminated  the  unusual  implementation  of 
named  COMMON  present  in  version  3.1.   It  must  be  noted  here, 
that  though  the  common  block  problem  was  solved,  the  ability 
to  address  more  than  64  kilobytes  beyond  the  beginning  of 
an  array  or  common  block  was  often  defeated  by  compiler/ 
linker  bugs.   Simple  applications  such  as  the  array  solver 
shown  in  APPENDIX  B  had  no  difficulty  in  compiling,  linking, 
and  producing  results  using  arrays  limited  only  by  the 
amount  of  memory  available.   However,  more  complicated 
programs  with  numerous  common  blocks  and  arrays  provide  a 
serious  challenge  to  the  compiler/linker  combination,  and 
the  results  are  not  always  gratifying.   The  improvement 
over  earlier  versions,  however,  are  monumental  and  conversa- 
tions with  Microsoft  Technical  Support  indicate  that  future 
releases  of  the  compiler  will  solve  the  types  of  problems 
encountered  in  this  research. 
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2 .   Small  Memory  Model  Implementation  of  MEF 

With  the  improvements  mentioned  above  it  took  only 
a  few  weeks  to  provide  a  working  version  of  MEF  which  was 
called  the  "Small  Memory  Model"  (SMM) .   That  is,  no  arrays 
were  declared  to  be  large  (the  working  array  size  was  cut 
to  2000  words).   For  details  of  the  compiler  structure,  the 
reader  is  referred  to  [Ref .  12:  pp.  99-129] .   The  result 
was  that  the  working  array  was  kept  in  a  default  data  segment 
referred  to  as  DGROUP.   DGROUP  also  contains  memory  pointer 
variables  used  by  the  compiler  and  run-time  system;  the 
stack,  which  is  used  for  passing  parameters  between  sub- 
routines; static  variables  and  constants;  and  addresses  of 
other  data  segments  such  as  named  COMMON  blocks  and  large 
arrays.   The  result  is  that  the  small  memory  model  is  sig- 
nificantly limited  in  comparison  to  the  later  implementation 
(called  the  large  memory  model)  because  the  working  array 
size  could  not  drive  the  size  of  DGROUP  over  64  kilobytes 
without  declaring  the  dummy  arrays  as  large  arrays.   The 
only  significant  difficulty  encountered  during  this  con- 
version was  that  the  BLOCK  DATA  module  would  not  initialize 
correctly.   Conversations  with  Microsoft  technical  support 
indicated  that  this  was  a  known  bug  and  that  BLOCK  DATA 
had  to  appear  as  the  first  object  in  a  link  module  in  order 
for  correct  initialization  to  take  place. 

The  correctness  of  the  small  memory  model  was  veri- 
fied with  the  published  results  used  to  verify  the  VAX 
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implementation.   In  all  cases,  the  results  obtained  on  the 
microcomputer  were  identical  with  those  published  by  Dhatt 
and  Tuzot  [Ref .  8] ,  with  the  exception  of  residual  computa- 
tions.  Residual  computations  on  the  microcomputer  produced 
number  of  the  same  (small)  magnitude  but  not  the  same 
mantissa.   It  is  suspected  that  this  could  be,  in  part, 
related  to  Microsoft's  adoption  of  the  IEEE  standard  for 
real  number  representation  and  calculations.   The  differences 
in  residual  computations  are  considered  to  be  inconsequential 
by  this  investigator.   At  the  time  the  small  memory  model 
was  completed,  MEF  contained  only  the  first  two  elements;  a 
quadratic  element  for  anisotropic  harmonic  problems  in  one, 
two,  or  three  dimensions;  and  an  eight  noded  quadrilateral 
element  for  two  dimensional  elasticity  problems. 
3 .   Large  Memory  Model  Implementation  of  MEF  ■ 

To  begin  with,  the  simplest  of  approaches  was  used 
to  convert  to  a  large  memory  model;  all  arrays  were  declared 
large  (using  the  compiler  "metacommand"  $ LARGE  [Ref.  11:  pp. 
186-187]).   This  approach  was  used  because  of  its  simplicity, 
and  the  fact  that  all  dummy  arrays  of  the  working  array 
(arrays  which  were  contained  within  the  working  array)  had 
to  have  the  $ LARGE  attribute  for  the  compiler  to  generate 
correct  linkages.   Initial  compiler  diagnostics  included 
errors  for  several  DO  loops  that  indicated  that  the  compiler 
believed  an  illegal  jump  into  the  range  of  a  DO  had  been 
executed.   Each  of  the  affected  DO  loops  was  nested  and  did 
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not  appear  to  violate  the  specifications  of  FORTRAN  77. 
Furthermore,  they  had  not  caused  problems  with  the  implementa- 
tion of  the  Small  Memory  Model.   These  problems  were  alle- 
viated by  the  use  of  the  compiler  metacommand  $D066  [Ref.  11: 
p.  183]  which  tells  the  compiler  to  use  the  FORTRAN  66  DO 
loop  conventions  (it  does  not  appear  that  this  should  have 
worked,  but  it  did) . 

The  resulting  code  compiled  and  linked  without  diag- 
nostics but  did  not  work.   The  initial  symptom  was  that  it 
did  not  recognize  any  of  the  commands  contained  in  the  input 
stream.   Diagnostic  write  statements  revealed  that  the  array 
used  to  store  the  list  of  commands  was  not  initialized 
correctly.   The  array  (BLOCS)  was  initialized  by  a  DATA 
statement  within  the  main  program.   The  statement  appeared 
to  be  correct  in  syntax  and  generated  no  diagnostics,  yet 
writing  the  contents  of  the  array  indicated'  that  it  con- 
tained nulls.   The  DATA  statement  initialization  of  the 
array  was  replaced  with  a  call  to  a  subroutine  which  ini- 
tialized the  array  using  assignment  statements.   This  solved 
the  command  recognition  problems,  but  runtime  errors  which 
involved  a  variety  of  arithmetic  operation  violations  were 
produced.   Usually  these  errors  were  overflows,  underflows, 
or  attempts  to  use  an  uninitialized  variable  in  an  arith- 
metic operation.   The  particular  error  depended  upon  what 
fix  up  had  been  used  to  overcome  the  previous  error. 
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During  this  period,  conversations  with  Microsoft 
Corporation's  technical  support  department  indicated  that 
there  were  several  reported  bugs  in  the  compiler.   One  was 
the  BLOCK  DATA  problem  mentioned  above,  and  another  was 
that  arrays  which  had  the  large  attribute  were  not  always 
initialized  correctly  by  data  statements.   However,  this 
last  problem  was  only  supposed  to  occur  with  REAL  arrays. 
The  first  problem  was  solved  by  compiling  the  BLOCK  DATA 
module  separately,  and  linking  it  as  the  first  module  at 
all  times.   This  did  not  alleviated  the  incorrect  initializa- 
tion of  the  CHARACTER* 4  command  array,  so  the  MAIN  program 
segment  was  compiled  separately  assigning  the  $LARGE  attri- 
bute to  the  working  array,  and  allowing  all  other  arrays 
in  the  MAIN  program  to  default  to  $NOTLARGE.   After  this 
the  command  array  was  initialized  correctly,  but  run-time 
errors  were  still  a  problem. 

The  use  of  character  arrays  to  pass  table  names  was 
prevalent  throughout  MEF,  and  diagnostic  write  statements 
indicated  that  some  of  them  were  being  initialized  correctly 
and  some  were  not.   Since  there  were  so  many  of  them  and 
there  did  not  seem  to  be  any  particular  characteristic  which 
would  identify  which  ones  would  initialize  and  which  would 
not,  the  arrays  containing  all  of  these  tables  were  declared 
$NOTLARGE.   This  resulted  in  the  tables  initializing  cor- 
rectly, but  the  run-time  errors  persisted. 
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It  is  appropriate  to  mention  here  that  the  time  to 
compile  and  link  after  making  changes  which  required  recom- 
piling all  modules  was  close  to  two  hours  on  the  Columbia 
floppy  disk  system.   The  IBM  PC/XT  had  only  recently  become 
available  and  reduced  compile  and  link  time  to  under  an  hour. 
In  addition,  the  linked  module  using  the  mixture  of  meta- 
commands was  often  over  400  kilobytes  long.   A  standard 
floppy  diskette  will  only  hold  360  kilobytes  and  these  ex- 
cessively large  linked  modules  would  not  have  been  possible 
without  the  hard  disk.   Further,  it  would  not  have  been 
possible  to  proceed  without  them  either;  the  run-time  errors 
proved  essential  in  localizing  the  problems  and  identifying 
them  as  compiler  bugs  rather  than  logic  errors.   The  linked 
module  using  the  generic  $LARGE  metacommand,  was  approximately 
239  kilobytes,  and  while  neither  module  would  execute  cor- 
rectly, the  increase  in  size  of  the  mixed  module  was  highly 
suspect  since  the  $NOTLARGE  metacommand  was  supposed  to 
produce  less  object  code. 

Further  conversations  with  Microsoft  Technical  Support 
indicated  that  there  had  been  some  reports  that  mixing  the 
$NOTLARGE  metacommand  with  the  $LARGE  metacommand  could 
cause  problems,  and  that  the  syntax  for  the  $ (NOT) LARGE 
command  was  incorrect  in  the  reference  manual.   The  manual 
[Ref.  11]  specified  that  the  $(N0T)LARGE  metacommand  could 
be  used  with  a  string  of  array  identifiers  separated  by  commas 
However,  according  to  technical  support  each  occurrence  of 
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the  metacommand  could  only  declare  a  single  array  name,  and 
the  metacommand  required  a  colon  separator  between  the  command 
and  the  array  name  (i.e.,  $LARGE:   array).   If  the  metacommand 
was  used  without  an  argument  (called  a  generic  $ (NOT) LARGE) 
then  all  arrays  in  the  compiland  were  considered  to  have  the 
particular  attribute. 

Since  the  mixing  of  the  $NOTLARGE  command  with  the 
generic  $LARGE  command  was  suspect,  numerous  attempts  were 
made  to  identify  all  arrays  which  required  the  $ LARGE  attri- 
bute and  declare  them  specifically  while  allowing  all  others 
to  default  to  $NOTLARGE.   None  of  these  attempts  worked. 
Conversations  with  Microsoft  Technical  Support  indicated 
that  the  investigation  had  possibly  uncovered  some  new 
problems  with  the  compiler  and  requested  that  the  problem  be 
documented  and-  sent  to  Microsoft  with  a  diskette  containing 
the  software  (they  were  less  enthusiastic  when  told  how 
extensive  the  software  was). 

As  a  last  act  of  desperation,  all  data  statements 
which  initialized  arrays  were  commented  out.   The  data 
statement  initializations  were  performed  with  assignment 
statements  either  directly  or  through  subroutine  calls,  and 
all  modules  were  recompiled  using  the  generic  $LARGE  meta- 
command.  The  resulting  linked  module  was  approximately  240 
kilobytes  long  and  was  able  to  run  the  simple  test  problems 
with  no  difficulty.   However,  as  the  size  of  problems  was 
increased,  the  behavior  of  the  program  became  unpredictable. 
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The  program  worked  properly  until  the  problem  required  more 
than  64  kilobytes  of  the  working  array  to  run.   This  always 
occurred  during  execution  of  the  assembly  and  solution  pro- 
cess, and  the  results  vary  depending  upon  which  element  sub- 
routine is  being  used  (i.e.,  which  incorrect  internal 
linkage  is  being  used) . 

To  summarize  the  problems  mentioned  above: 

1.  Arrays  which  have  the  $ LARGE  attribute  are  not 
always  initialized  correctly  with  data  statements.   The  in- 
correct initialization  is  not  predictable,  nor  is  it  con- 
fined to  REAL  arrays. 

2 .  The  $LARGE  and  $NOTLARGE  metacommands  cannot  be 
used  inside  the  same  compiland. 

3.  BLOCK  DATA  must  appear  as  the  first  module  in  a 
link  module. 

•4.   Nested  DO  loops  can  sometimes  generate  compile 
time  errors. 

In  an  effort  to  cleanup  the  long  streams  of  assign- 
ment statements  caused  by  the  data  statement  problem,   a 
separate  compiland  was  created  in  which  subroutines  whose 
names  begin  with  "INIT"  (see  Appendix  E,  pp.  247-258  )  were  placed 
The  method  used  was  to  pass  the  name  of  the  array  being 
initialized  as  a  calling  parameter.   The  passed  parameter 
was  declared  $LARGE,  and  all  other  arrays  were  allowed  to 
default  to  $NOTLARGE.   A  $NOTLARGE  "dummy"  array  was  initial- 
ized with  a  data  statement  and  a  DO  loop  was  executed  which 
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assigned  the  elements  of  the  "dummy"  array  to  the  passed 
array,  and  then  executed  a  return.   During  the  creation 
of  these  subroutines  it  was  discovered  that  the  data  state- 
ments in  the  first  subroutine  of  the  compiland  would  not 
initialize  correctly.   If  the  initializations  were  character 
strings  no  diagnostic  was  generated,  but  if  the  initializa- 
tions were  REAL  constants  the  compiler  would  generate 
"CANNOT  CONVERT  CONSTANT"  diagnostics.   A  subroutine  called 
DUMMY  which  had  no  function,  and  was  never  called  by  another 
routine  was  created  and  placed  as  the  first  subroutine  in 
the  compiland.   The  method  is  not  elegant,  but  it  worked, 
and  it  eliminated  long  strings  of  assignment  statements  which 
did  nothing  more  than  assign  constants  every  time  a  subroutine 
was  called.   In  the  case  of  many  subroutines  these  statements 
were  only  executed  once,  however,  in  the  case  of  element 
subroutines,  they  were  executed  many  times  during  a  problem 
solution. 

During  the  course  of  this  investigation  five  elements 
were  added  to  MEF ,  and  it  was  only  after  the  implementation 
of  these  elements  and  the  initialization  routines  that 
problems  large  enough  to  cause  difficulties  were  attempted. 
It  was  feared  that  the  modifications  to  MEF  had  possibly 
induced  some  of  the  problems.   In  order  to  demonstrate 
whether  or  not  the  microcomputer  code  was  portable,  and  to 
verify  that  compiler  bugs  were  the  problem,  and  not  a  failure 
in  program  logic,  MEF  was  transferred  by  modem  to  the  VAX  780. 
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The  transferred  code  required  four  lines  of  code  to  be  modi- 
fied.  Two  of  the  lines  were  OPEN  statements  which  contained 
file  names  that  had  illegal  character  strings  under  the  VMS 
operating  system,  and  two  contained  an  illegal  format  ele- 
ment, a  backslash  (in  the  Microsoft  implementation,  the 
backslash  suppresses  an  automatic  carriage  return  linefeed 
at  the  end  an  output  line) .   The  resulting  FORTRAN  program 
compiled  and  linked  with  no  further  diagnostics,  and  its 
results  have  been  verified  using  published  test  problems 
[Ref.  8],  and  [Ref.  13:  pp.  170-177].   In  addition,  the 
results  have  been  tested  using  the  Graphics  Interactive 
Finite  Element  Timesharing  System  (GIFTS),  and  CAL-NPS.   A 
selection  of  the  test  problems  has  been  provided  in  Appendix  E 

D.   GLOBAL  STRUCTURE  AND  USE  OF  MEF 

It  is  not  the  intention  of  this  thesis  to  provide  a  com- 
prehensive programmer's  reference  manual  or  users  guide  to 
MEF.   However,  an  overview  of  the  structure  of  MEF  will  be 
helpful  to  any  potential  user  of  this  powerful  tool.   For 
greater  detail,  the  reader  is  referred  to  Chapter  Six  of 
[Ref.  8]  . 

1.   Functional  Blocks  of  MEF 

MEF  consists  of  sixteen  functional  blocks.   Some 
of  the  blocks  are  required  for  all  problem  types,  and  some 
of  the  blocks  are  optional  depending  on  the  problem  being 
solved.   The  functional  blocks  are  also  the  names  of  the 
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block  calling  cards  (or  commands)  and  are  listed  in  Table 
III  below.   An  underscore  indicates  that  the  block  is 
required  for  all  problem  types. 

Functional  block  diagrams  are  provided  in  Appendix 
C,  and  complete  descriptions  of  the  input  data  cards  are 
provided  in  [Ref.  8:  pp.  440-447].   The  main  program  con- 
trols the  flow  of  all  information  through  the  functional 
blocks  by  transferring  control  to  a  subroutine  called  BLNNNN 
when  the  block  calling  card  NNNN  is  encountered  in  the  input 
file.   The  subroutine  BLNNNN  then  performs  preliminary  func- 
tions such  as  logical  unit  identification,  and  reading  of 
control  parameters  for  the  creation  of  various  files  and 
tables.   The  subroutine  then  calls  subroutine  EXNNNN .   In 
all  cases,  subroutine  BLNNNN  provides  appropriate  default 
parameters  which  will  be  overridden  by  user  values  if 
specified.   Subroutine  EXNNNN  then  performs  the  major  opera- 
tions of  the  block  by  calling  on  the  needed  subroutines  in 
the  MEF  library.   The  above  protocol  holds  for  all  blocks 
except  STOP,  COMT,  and  IMAG .   All  the  functions  of  COMT 
and  IMAG  are  performed  by  subroutine  BLNNNN,  and  the  func- 
tion of  block  STOP  is  performed  by  the  main  program. 

With  the  exception  of  blocks  IMAG,  COMT,  and  STOP 
each  block  uses  a  named  COMMON /NNNN/  to  assist  in  the  pass- 
ing of  needed  information  between  subroutines.   The  blocks 
COMT  and  IMAG  use  a  named  common  block,  COMMON / TRVL / ,  which 
is  used  as  a  scratch  pad  for  various  routines.   Block  STOP 
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does  not  require  its  own  common  block  but  uses  the  informa- 
tion from  COMMON/ALLOC/  to  perform  its  function  of  printing 
the  maximum  length  of  the  working  array  used  during  execu- 
tion of  the  problem.   The  common  block  COMMON /ALLOC / ,  is 
used  by  subroutine  ESPACE  and  VIDE  to  keep  track  of  the 
amount  of  working  space  allocated  at  any  time.   Subroutine 
ALLOC  allocates  table  space,  and  subroutine  VIDE  deletes 
unneeded  tables  followed  by  compacting  the  workspace. 

Variable  and  array  naming  conventions  and  details 
are  contained  in  [Ref.  8:  pp.  369-376]  these  details  are 
omitted  here  because  they  will  only  be  helpful  to  the 
reader  who  intends  to  modify  MEF .   In  that  case  the  reader 
is  referred  to  the  source  for  the  extensive  detail  required. 

Table  III.   Functional  Block  Summary 

IMAG     Copies  the  input  data  card  images  to  the  output 
listing.   Must  be  the  first  card  if  used. 

COMT     Places  comments  into  the  output  listing. 

COOR  Reads  the  nodal  coordinates  and  number  of  degrees 
of  freedom  of  each  node.  Provides  automatic  node 
generation. 

DLPN     Provides  the  ability  to  modify  the  degrees  of  freedom 
at  a  node.   Particularly  useful  with  problems  using 
more  than  one  element  type. 

COND     Reads  the  boundary  conditions. 

PRND     Reads  nodal  properties  if  required  by  the  problem. 

PREL     Reads  element  properties  if  required  for  the  element 
type  being  used. 
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ELEM     Reads  the  element  connectivities.   Also  reads  element 
group  information  when  more  than  one  element  type  is 
used,  or  when  elements  have  different  properties. 
Provides  automatic  element  generation. 

SOLC     Input  of  concentrated  loads. 

SOLR    Input  of  distributed  loads. 

LINM     In-core  assembly  and  solution  of  a  linear  system  of 
equations. 

LIND     Out-of-core  assembly  and  solution  of  a  linear  system 
of  equations. 

NLIN     Provides  a  limited  nonlinear  solution  capability 
using  the  Newton-Raphson  method. 

TEMP     Provides  the  solution  of  a  linear  or  nonlinear  time 
dependent  problem  using  an  Euler  method. 

VALP     Computes  eigenvalues  and  eigenvectors  using  the  sub- 
space  iteration  method. 

STOP     Terminates  execution  of  the  problem. 

The  following  information  concerning  array  names  is 
provided  because  the  array  names  may  appear  in  the  output 
listings  with  no  explanation  when  verbose  printouts  are 
requested.   Block  COOR  creates  the  table  of  nodal  coordinates 
in  the  array  VCORG ,  and  the  cumulative  degrees  of  freedom  in 
the  array  KDLNC .   Block  COND  stores  the  equation  identifica- 
tion number  for  each  degree  of  freedom  in  the  array  KNEQ,  and 
the  specified  degrees  of  freedom  at  a  boundary  in  the  array 
VDIMP.   Block  ELEM  creates  the  array  KLD  which  contains  the 
location  of  the  beginning  of  each  column  in  a  skyline  matrix, 
and  writes  a  disk  file  containing  all  information  pertinent 
to  the  description  of  an  element.   The  disk  file  will  be  used 
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in  the  assembly  process  to  create  element  and  global  stiff- 
ness matrices.   Block  PREL  creates  the  array  VPREG  in  which 
it  stores  the  properties  of  the  various  groups  of  elements. 
The  global  stiffness  matrix,  VKG ,  is  created  in  block  LIND 
or  LINM.   The  entire  stiffness  matrix  consists  of  three 
submatrices  VKGS,  VKGD ,  and  VKGI  which  contain  the  upper 
triangle,  the  diagonal,  and  the  lower  triangle  of  the 
matrix,  respectively.   VKGI  is  only  present  for  nonsymmetric 
matrices.   The  Matrix  VFG  contains  the  global  loads,  VDLG 
is  the  solution  vector,  and  VRES  is  the  residuals  and  reac- 
tions vector. 

As  mentioned  above,  MEF  provides  various  levels  of 
output.   The  quantity  of  output  desired  from  a  given  block 
is  controlled  by  a  parameter  on  the  block  calling  card 
(described  in  detail  [Ref.  8:  pp.  440-447]  which  ranges 
from  0  (the  assumed  value)  to  4.   The  default  value  provides 
all  the  information  needed  to  verify  the  input  stream  and 
obtain  the  desired  answers  while  the  values  1  thru  4  provide 
various  levels  of  verbosity.   Each  level  provides  all  that 
the  last  one  did  plus  additional  information,  and  in  some 
blocks  levels  above  2  have  no  additional  meaning.   The 
reader  is  cautioned  against  the  indiscriminate  use  of  ver- 
bose listings.   With  larger  problems  it  is  easy  to  create 
megabytes  of  listing  which  can  even  overrun  the  capacity 
of  a  hard  disk.   The  best  procedure  is  to  decide  where  ver- 
bose output  is  needed  and  to  use  it  only  in  the  required 
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blocks.   Using  verbose  printing  on  the  solution  blocks 
creates  reams  of  output  and  is  seldom  of  any  value  to  the 
user.   The  solution  processes  have  all  undergone  extensive 
verification,  and  problems  which  arise  are  generally  trace- 
able to  the  input  stream.   The  only  exception  is  when  the 
problem  requires  more  than  64  kilobytes  of  the  working 
array  in  which  case  the  program  will  most  often  terminate 
with  a  run-time  arithmetic  operation  error.   In  this  case, 
further  processing  will  have  to  be  done  with  the  VAX  780 
version. 

2 .   Elements  Supported  by  MEF 

The  current  version  of  MEF  consists  of  approximately 
7000  lines  of  code  (including  comments) .   Five  additional 
elements  have  been  added  to  make  a  total  of  seven  elements. 
A  summary  of  the  elements  is  listed  in  Table  IV.   All  ele- 
ments have  been  written  in  French  and  with  the  exception  of 
elements  1  and  2  produce  most  of  their  output  in  French. 
The  user  will  have  little  if  any  trouble  understanding  the 
results  and  should  consider  the  experience  culturally  en- 
riching.  Most  of  the  words  which  appear  in  the  listings 
are  cognates  or  recognizable  from  the  context  in  which 
they  appear.   Time  did  not  permit  the  translation  of  the 
format  statements. 

The  block  PREL  will  require  the  properties  of  the 
elements  to  be  entered  as  a  data  card  image.  The  proper- 
ties are  specific  to  the  element  routine  alone,  and  must  be 
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entered  in  the  order  expected  by  the  element  routine.   Table 
IV  summarizes  the  properties  required  by  each  element  in  the 
correct  order.   For  those  elements  which  require  a  material 
density  property,  the  property  is  used  in  the  creation  of  a 
mass  matrix  for  the  solution  of  eigenvalue  problems.   This 
property  may  be  omitted  if  the  block  VALP  will  not  be  used. 
Element  5  is  not  implemented  in  this  version,  and  has  been 
left  out  of  Table  IV. 

Table  IV.   Element  Summary 


ELEMENT 
NUMBER 


DESCRIPTION 

Eight  noded  quadrilateral 
for  anisotropic  harmonic 
problems  in  1 ,  2 ,  or  3 
dimensions 


Eight  noded  quadrilateral 
for  2  dimensional  elasticity 
problems 


Six  noded  triangular 
element  for  2  dimensional 
elasticity  problems 


Three  noded  triangular 
element  for  2  dimensional 
regions  of  unit  thickness 


REQUIRED  PROPERTIES 


1) 

coefficient  DX 

2) 

DY 

3) 

DZ 

4) 

specific  heat 

capacity 

1) 

Young ' s  modulus 

2) 

Poisson's  ratio 

3) 

0  =  plane  stress 

4) 

specific  mass 

1) 

Young ' s  modulus 

2) 

Poisson's  ratio 

3) 

0  =  plane  stress 

1  =  plane  strain 

1) 

Young ' s  modulus 

2) 

Poisson's  ratio 

3) 

0  =  plane  stress 

1  =  plane  strain 

4) 

X  body  force 

component 

5) 

Y  body  force 

component 

6) 

specific  mass 
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ELEMENT 
NUMBER 


8 


DESCRIPTION 

Three  noded  triangular 
plate  bending  element  for 
isotropic  or  orthotropic 
materials 
Notes : 

If  the  material  is  iso- 
tropic properties  are 

5)  Young's  modulus 

6)  Poisson's  ratio 

7)  ,  8)  =0 
If  orthotropic 

5)  D(l,l) 

6)  D(l,2) 

7)  D(2,2) 

8)  D{3,3) 

where  the  D(i,j)  are  the 
bending  stiffness 
elasticity  constants 

Twenty  noded  brick  for 
three  dimensional 
elasticity  problems 

Truss  element  for  2  or 
3  dimensional  problems 


REQUIRED  PROPERTIES 

1)  index  for  inte- 
gration by 
Gauss-Radau  (1-5) 

1  =  least  accurate 
5  =  most  accurate 

2)  thickness 

3)  1  =  isotropic 

2  =  orthotropic 

4)  location  to  cal- 
culate stresses 

1  =  centroid 

2  =  corner  nodes 

3  =  midnodes 

5)  -  8  )  according 

to  notes 
9)  specific  density 


1)  Young's  modulus 

2)  Poisson's  ratio 


1)  cross-section 

2)  Young's  modulus 

3)  density 


3 .   Running  MEF 

To  execute  MEF  as  installed  on  an  IBM  PC-XT  or  com- 
patible, simply  boot  the  operating  system,  log  to  the  direc- 
tory in  which  MEF . EXE  is  located,  and  type  MEF  followed  by 
a  carriage  return.   MEF  will  respond  by  asking  for  the  name 
of  the  command  input  file.   The  response  may  be  any  legal 
MS-D05  file  name,  including  a  disk  drive  identifier  (for 
example,  a : INPUT.DAT) .   If  the  response  is  the  MS-DOS 
identifier  CON  then  MEF  will  expect  to  receive  all  commands 
and  inputs  from  the  console  keyboard.   After  entering  the 
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input  file,  MEF  will  request  the  name  of  the  output  file. 
Once  again,  this  may  be  any  legal  file  name  including  PRN. 
The  response  PRN  will  result  in  the  output  being  directed 
to  the  printer.   MS-DOS  pathnames  are  not  supported  by  MEF 
in  the  naming  of  input  and  output  files.   After  the  entry 
of  the  output  file,  MEF  will  begin  to  process  the  command 
input  file;  as  MEF  processes  the  input  commands  it  will  up- 
date the  console  with  information  concerning  which  functional 
block  it  is  processing. 

When  MEF  is  used  on  a  system  which  does  not  have  a 
hard  disk  it  is  best  to  keep  the  input  and  output  data  files 
on  a  separate  diskette  in  the  default  drive,  and  execute  MEF 
from  the  default  drive  using  a  drive  designation.   For  example, 
if  the  default  drive  was  a:  the  MEF  program  could  be  started 
by  typing  b:MEF  with  the  MEF  diskette  in  drive  b:  and  a 
scratch  diskette  in  a:.   The  reason  for  this  is  that  MEF 
creates  several  scratch  files  on  the  default  drive  during 
execution,  and  there  is  not  much  room  left  on  a  floppy 
diskette  which  contains  MEF.   MEF  will  create  two  scratch 
files  for  an  in-core  solution,  and  three  scratch  files  for 
an  out-of-core  solution;  the  names  of  these  files  will  begin 
with  $$  so  that  it  is  not  likely  they  will  coincide  with 
existing  file  names. 

Once  the  initial  responses  to  MEF  have  been  made, 
the  present  version  of  the  code  expects  all  input  to  come 
from  a  command  file,  or  the  console.   Attempting  to  input 
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directly  from  the  keyboard  can  be  a  very  frustrating  expe- 
rience, and  if  a  mistake  is  made  there  is  no  recourse  but 
to  begin  again.   For  this  reason,  it  is  recommended  that 
a  command  input  file  be  created  with  a  suitable  text  editor. 
FORTRAN  77  rules  apply  to  the  format  of  the  cards.   That  is, 
entries  separated  by  commas  will  override  the  specified 
format,  however,  there  must  be  no  blanks  imbedded  in  the 
line  if  the  format  is  to  be  overriden.   As  can  be  seen 
from  the  examples  provided  in  Appendix  D  either  method  will 
work,  and  the  user  may  find  it  convenient  to  enter  some 
cards  according  to  the  format,  while  other  cards  may  be 
easier  to  override. 

It  is  advisable  to  send  the  output  file  to  disk 
rather  than  to  the  printer.   The  disk  file  can  be  viewed 
and  even  edited  with  a  text  editor  prior  to  printing.   Send- 
ing the  output  to  the  printer  will  simply  cause  the  process 
to  be  output  bound.   MEF  also  uses  a  132  character  output 
line,  and  it  is  advisable  to  shift  the  printer  to  a  17  char- 
acter per  inch  mode  if  it  does  not  have  a  wide  carriage. 

The  amount  of  space  required  to  run  the  problem 
must  be  of  concern  to  the  user  until  the  bugs  have  been 
eliminated  from  the  compiler.   The  required  number  of  bytes 
may  be  estimated  using  the  following  formula: 

space  required  =  (bandwidth) (number  of  nodes) (8) (2.0) 
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The  factor  of  2.0  is  an  empirically  determined  factor 
used  to  account  for  the  storage  of  all  tables  in  the  working 
array.   Because  of  the  compiler  bugs  which  have  not  yet  been 
circumvented  or  corrected,  if  the  space  required  approaches 
64  kilobytes  then  the  compiler/IBM  PC  capabilities  have  been 
exceeded,  and  MEF  will  probably  fail  with  a  run-time  error. 
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III.   RESULTS  AND  CONCLUSIONS 

A .   SUMMARY 

Chapter  I  recounted  a  portion  of  the  history  and  develop- 
ment of  the  microcomputer  and  attempted  to  list  some  of  the 
reasons  that  microcomputer  based,  engineering  software  has 
been  slow  to  develop.   The  main  reason  is  that  it  was  too 
difficult  to  create  engineering  software  on  the  rather 
limited  resources  provided  by  the  eight  bit  microprocessor, 
and  limited  software  tools  which  existed  at  the  time.   In 
addition,  the  engineering  software  which  was  created  was  slow 
and  unwidely  to  use  which  hampered  its  propagation  and  devel- 
opment.  However,  the  advent  of  the  sixteen  bit  microprocessor 
has  provided  a  hardware  product  whose  capabilities  are  more 
than  adequate  for  engineering  applications.   This  opinion 
is  supported  strongly  by  the  fact  that  the  majority  of  main- 
frame minicomputer  systems  today  are  based  on  sixteen  bit 
processor  architecture.   The  major  difference  between  the 
minicomputer  and  the  microcomputer  is  operating  system 
maturity,  and  processor  speed.   The  speed  advantage  is 
partially  offset  by  the  fact  that  a  microcomputer  is  seldom 
used  to  support  timesharing  applications,  and  can  often  pro- 
duce results  almost  as  quickly  as  the  minicomputer  burdened 
with  the  management  of  timesharing  (one  must  count  the  time 
spent  waiting,  not  just  the  CPU  seconds). 
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Regardless,  the  sixteen,  bit  microcomputer  has  been 
around  since  1981,  yet  there  is  little  engineering  software 
available  today.   The  reason  is  that  reliable  software  tools 
(operating  systems,  compilers,  etc.)  lag  the  introduction  of 
hardware  by  a  considerable  amount  of  time.   The  premise  of 
this  thesis  was  that  the  necessary  maturity  of  operating 
system  and  compiler  had  been  achieved,  and  a  combination  of 
hardware,  operating  system,  and  compiler  was  chosen  to  test 
the  premise  in  the  specific  application  of  finite  elements. 

As  stated  in  Chapter  I.B,  the  purpose  of  this  investiga- 
tion was  to  implement  a  general,  finite  element  program  on 
a  sixteen  bit  microcomputer,  and  determine  whether  the  result 
was  practically  useful.   The  actual  programming  and  conver- 
sion of  software  began  in  March  1984,  and  continued  thru 
August  1984.   During  that  period  two  distinct  version  of  MEF 
were  installed  on  the  IBM  PC-XT  and  the  COLUMBIA  MPC  micro- 
computers.  The  first  version  was  a  small  memory  model  which 
performed  all  the  functions  of  the  mainframe  version  but 
was  quite  limited  in  the  size  of  problems  it  could  handle. 
This  was  to  be  expected,  and  was  merely  a  point  in  the  step- 
wise implementation  of  the  objective. 

The  small  memory  model  was  then  converted  to  the  current 
version  of  MEF  which  is  referred  to  as  the  large  memory  model 
The  large  memory  model  is  significantly  more  capable  than 
the  small  memory  model  in  terms  of  the  problem  size  that  can 
be  handled.   However,  as  detailed  in  Chapter  II  the  large 
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memory  model  is  not  able  to  take  advantage  of  the  full  memory 
available  because  of  the  existing  bugs  in  the  Microsoft 
FORTRAN  77  Compiler  version  3.2. 

B.   CONCLUSIONS 

Although  it  was  not  the  intention  of  this  investigation 
to  evaluate  the  hardware  or  operating  systems  of  the  two 
machines,  it  is  impossible  to  write  a  conclusion  without 
mentioning  them.   Throughout  this  investigation,  both 
systems  (the  IBM  PC-XT,  and  the  COLUMBIA  MPC)  have  functioned 
faultlessly.   This  observation  includes  the  operating  systems 
and  the  hardware.   Both  computers  have  been  supported  by  a 
variety  of  peripherals  manufactured  by  different  companies, 
and  neither  system  has  operated  in  a  controlled  environment. 
The  machines  are  turned  off  and  on  at  will,  and  have  received 
only  the  most  cursory  preventive  maintenance.   Yet,  both 
systems  have  maintained  one  hundred  percent  availability,  on 
demand,  with  no  time  spent  at  reduced  capability.   The  pre- 
vious experience  of  this  investigator  has  been  with  mainframe  . 
computing  systems,  and  the  reliability  of  these  microcomputer 
systems  was  totally  unexpected. 

At  the  beginning  of  this  investigation,  it  was  not  clear 
that  a  program  the  size  and  complexity  of  MEF  could  be  con- 
verted to  operate  on  a  microcomputer.   However,  a  background 
in  computer  science  and  operating  systems  led  this  investigator 
to  believe  that  it  might  be  possible.   The  results  have  been 
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gratifying  on  one  hand,  and  frustrating  on  the  other.   The 
frustration  results  from  the  limitations  imposed,  not  by 
the  program,  and  not  by  the  hardware,  but  by  the  immaturity 
of  the  compiler.   With  the  example  of  the  matrix  solver 
shown  in  Appendix  B  it  is  clear  that  the  machine  and  compiler 
combination  have  the  capability  to  solve  large  problems.   It 
is  unfortunate  that  compiler  bugs  prevent  the  full  realiza- 
tion of  that  capability  with  a  more  complex  application. 
However,  conversations  with  Microsoft  Corporation  indicate 
that  a  new  release  of  the  compiler  may  be  available  as  early 
as  January  1984,  and  even  at  this  time,  advertisements  for 
competitive  compilers  are  beginning  to  appear  in  periodicals. 

A  more  objective  statement  of  the  results  is  that  the 
largest  problem  which  could  be  run  on  the  microcomputer  took 
less  than  five  minutes  from  start  to  stop,  and  the  results 
are  comparable  to  the  results  obtained  from  other  sources. 
It  is  clear  that  the  execution  speed  and  capability  of  the 
software  is  acceptable.   Therefore,  the  utility  of  KEF  is 
assured,  subject  to  the  temporary  restriction  of  problem 
size.   At  this  time,  MEF  is  an  excellent  classroom  tool,  and 
is  capable  of  solving  most  problems  given  as  academic  exer- 
cises in  solids  and  conduction  heat  transfer.   It  is  also 
capable  of  handling  many  problems  which  are  not  assigned  as 
academic  exercises.   In  addition,  because  of  its  modular 
structure,  MEF  also  provides  an  excellent  teaching  tool  for 
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the  finite  element  classroom.   As  soon  as  the  problem  size 
restrictions  are  overcome,  MEF  will  have  far  greater  applica- 
tion on  the  microcomputer. 

It  is  important  to  understand  the  significance  of  what 
the  ability  to  create  and  execute  software  of  this  complexity 
and  capability  (on  a  microcomputer)  can  mean  to  the  field  of 
engineering  in  general.   If  the  compiler  had  been  "clean," 
the  problems  encountered  in  converting  MEF  would  have  been 
minimal.   The  cost  of  a  microcomputer  system  is  well  within 
the  range  of  most  small  engineering  firms,  and  the  increase 
in  problem  solving  capability  is  even  more  dramatic  than  the 
step  from  the  sliderule  to  the  programmable,  pocket  calculator 
There  is  a  wide  variety  of  software  available  today  including 
finite  elements,  optimization,  heat  transfer,  fluid  dynamics, 
electronic  circuit  design,  control  systems,  etc.   The  cost 
of  computer  time  has  made  much  of  this  software  unavailable 
to  smaller  concerns.   However,  the  near  future  will  undoubt- 
edly see  the  conversion  of  much  of  this  software  to  micro- 
computer systems.   The  possibilities  are  encouraging. 

C.   RECOMMENDATIONS 

The  following  recommendations  are  made  for  future  devel- 
opment of  MEF : 

1.  MEF,  as  implemented,  is  primarily  a  batch  stream  pro- 
cessor. By  that  it  is  meant  that  the  input  is  noninteractive 
and  formatted.   The  facility  of  MEF  would  be  enhanced  by 


54 


the  addition  of  interaction,  or  an  interactive  preprocessor 
to  produce  the  "steering  file"  (command  input  file). 

2.  The  capabilities  of  graphics  to  summarize  the 
results  from  any  finite  element  application  cannot  be  over 
stated.   In  addition,  the  graphic  representation  of  the 
structure  and  finite  element  mesh  is  important  for  the 
detection  of  errors  in  the  problem  definition;   Therefore, 
the  addition  of  graphics  to  KEF  would  significantly  improve 
its  capability. 

3.  The  possibilities  regarding  the  addition  of  elements 
are  almost  without  bound.   However,  the  addition  of  a  cubic 
solid  element  (a  32  node  brick)  would  provide  significant 
additional  capabilities.   The  addition  of  such  an  element 
would  provide  an  exact  solution  for  beams  (using  only  one 
element  for  node  loadings) ,  and  an  excellent  model  for 
plates  and  shells.   The  addition  of  such  an  element  would 
allow  the  elimination  of  a  number  of  the  existing  elements, 
at  the  cost  of  more  memory;  the  trade  off  would  have  to  be 
evaluated. 
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APPENDIX  A 
CPU  CLOCK  SPEED  TEST 

The  following  Intel  8088  Assembly  language  program, 
assembled  with  the  MICROSOFT  assembler  (MASM),  was  used  to 
determine  the  apparent  speed  of  the  processor,  or  the  loss 
of  processor  speed  due  to  the  processing  involved  in  handling 
the  interrupt  driven  operating  system. 

When  executed,  the  program  loops  for  the  number  of  times 
specified.   The  actual  number  of  times  through  the  loop  can 
be  determined  by  multiplying  the  contents  of  the  BX  register 
by  65,536.   In  this  application,  the  result  is  10,485,760. 
The  program  accesses  the  system  clock  before  and  after  com- 
pletion of  the  loop,  and  computes  the  elapsed  time  to  the 
nearest  second.-   The  elapsed  time  is  then  displayed  on  the 
screen.   The  test  was  done  numerous  times  on  both  systems, 
and  never  computed  an  elapsed  time  less  than  52  seconds  nor 
one  greater  than  53  seconds. 

Clock  cycle  calculations  were  computed  by  counting  the 
total  number  of  machine  cycles  executed  between  the  labels 
WAIT  and  ENDWAIT.   The  eight  cycles  used  for  initialization 
in  the  two  steps  before  the  label  WAIT  have  been  included 
only  for  the  sake  of  preciseness  so  that  all  machine  cycles 
between  clock  accesses  were  accounted  for.   The  number  of 
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times  through  the  loop  is  large  enough  to  insure  that  any 
error  induced  by  not  counting  the  clock  accesses  is 
insignificant. 


INSTRUCTION 

NO.  OF  TIMES 
EXECUTED 

MOV  BX,0A0h 

1 

MOV  CX,0  0h 

1 

DEC  BX 

160 

JZ  ENDWAIT 

1 
159 

XFER 
FAILS 

DEC  CX 

1048576 

JNZ  LOOPS 

1048560 
160 

XFERS 
FAILS 

JMP  WAIT 

160 

Total  Clock  Cycles  In  Loop 


CLOCK  CYCLES 

NO.  OF  CYCLES 

PER  EXECUTION 

IN  LOOP 

4 

4 

4 

4 

2 

320 

16 

16 

4 

636 

2 

20971520 

16 

167769600 

4 

640 

15 

2400 

In  Loop 

188745140 

APParent  Clock  SPeed  =  188745140  =3.56  MHz 
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CSEG 


SEGMENT 
ASSUME 


PARA  'CODE' 

CSsCSEB,  DS:CSES,  SS:STACKS3,  ES: NOTHING 


ORG 

PUSH 

SUB 

PUSH 

MOV 

MOV 


LEA 
CALL 


OlOOH 

DS 

AX,  AX 

AX 

AX,  CSEG 

DS,  AX 


;Save  DS  for  return  to  DOS,  and 
;put  a  zero  on  the  stack. 

;Set  the  DS  register. 


DX,  STARTOSG 

OUTMSG      ;  Out  put  start  message 
;to  screen. 


CALL   BEEP 


;Beep  terminal  bell. 


CALL   GETTIME      ;Reads  clock  chip  and  stores 
MOV   STARTTM,  DX   ;amutes  and  seconds  in  memory 
; location,  STARTTM. 


MOV    BX,  OAOh    ; Initialize  counters  for  delay  loop. 
MOV    CX,  OOh     ;For  real  run  BX=OAOh 


WAIT:  DEC 
JZ 

LOOPS:  DEC 
JNZ 
JMP 


BX 

ENDWAIT 

CX 

LOOPS 

WAIT 


;Run  around  in  circles  about 
;10  Million  tines. 


ENDWAIT: 


CALL   GETTIME     ;Read  the  clock  chip  and 

MOV    STOPTM,  DX   ;store  in  memory  location  STOPTM. 


CALL   BEEP 


LEA 
CALL 


ELAPSED  TIME 


;Beep  terminal  bell. 


DX,  ENDMS6 

OUTMSG     ;Send  all  done  message 
;to  the  terminal. 


Comoute  elapsed  time. 
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LBLA: 


XOR 

MOV 

MOV 

MOV 

CMP 

JE 

ADC 

Dfifi 

SUB 

DAS 

MOV 


CALL 

LEA 

CALL 


MOV 
INT 


{Elapsed  tine  is  assumed  less  than 
;one  minute. 
;Clear  AX. 


;Stoo  ti»e  in  seconds  in  AL 
;If  minute  has  incremented  during 
;wait  Iood  must  add  60  seconds  to 
;stoo  time  to  compute  correct  delta  t. 
;A11  of  this  works  because  the  clock 
;provices  BCD  quantities. 


AX,  AX 

BX,  STOPTM 

CX,  STARTTM 

AL,  BL 

BH,  CH 
LBLA 

AL,  60h 

AL,  CL 

DX,  AX 


ASCCONV     {Convert  elapsed  time  to  ASCII, 

DX,  ELTIMEMSG;and  output  elapsed  time,  in  seconds, 

OUTMSG      ;to  the  screen. 


AH,  ACh 
21h 


; Return  to  DOS. 


BEEP 


BEEP 


PROC 

MOV 

MOV 

INT 

RET 

ENDP 


NEAR 
AH,  02h 
DL,  07h 
21h 


{SUBROUTINE  to  beep  the 
;teminal  bell. 


SETTIME  PROC 
MOV 
IN 
MOV 
RET 

GETTIME 


NEAR 

DX,  02C2h 
AX,  DX 
DX,  AX 

ENDP 


;SUBROUTINE  to  reads  system  clock. 

;The  hours  are  placed  in  CX,  and  the 
{low  order  count  (approx  18.2  counts 
;per  second)  in  DX. 


OUTMSG  PROC 
MOV 
INT 
RET 

OUTMSG  ENDP 


NEAR 
AH,  09h 
21h 


{SUBROUTINE  to  output  string  pointed 
;to  by  DX. 


ASCCONV       PROC   NEAR  {Convert  elapsed  time  to  ASCII. 
LEA    SI,  ASCVAL+3  ;SI  points  to  least  significant 

;digit's  storage  location. 
MOV    CX,  OA      {Initialize  loop  counter. 
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LflLC:      PUSH 
MOV 
WO 
OR 
MOV 
DEC 
MOV 
SHR 
MOV 
POP 
LOOP 
RET 

ASCCONV  ENDP 


CX 

CX,  04 
flX,  OOOfh 
flX,  30h 
CSI3,  AL 
SI 

AX,  DX 
AX,  CL 
DX,  AX 
CX 
LBLC 


;Save  the  loop  count. 
;Shift  court  in  CX. 
;Strip  right  sost  nyhble. 
;Convert  digit  to  ASCII  character. 
;Store  the  character. 


;Move  the  next  digit  into  the  least 


significant  nybbie. 


STARTMS6  DB 
ENDMS6  DB 
STARTTM  DW 
STOPTM  DW 
ELTIHEMSG  DB 
ASCVAL   DB 


'Begin  wait  loop',ODh,OAh,OAh,OAh,'$' 
'End  wait  loop',ODh,OAh,'*' 


'Elaosed  tine  in  seconds: 
'   $' 


CSE6 


ENDS 


STACKS6    SEGMENT    PARA  STACK  'STACK' 

DW       80  DUP(?) 
STACKSS    ENDS 
END 
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APPENDIX  B 
MATRIX  SOLUTION  TEST  PROGRAM 

The  following  FORTRAN  program  was  used  to  test  the 
capability  of  the  machine  to . solve  a  system  of  equations, 
[A] (X)  =  (B) ,  whose  coefficient  matrix,  [A] ,  required  more 
than  65,536  bytes  of  storage.   The  main  program  requests  a 
job  name,  and  the  number  of  equations  to  be  solved.   It  then 
fills  the  [A]  matrix  symmetrically,  in  banded  fashion,  with 
the  number  of  equations  (NEQ)  on  the  diagonal,  and  each 
subdiagonal  decreased  by  one  more  than  the  previous  sub- 
diagonal;  the  right  hand  side  of  the  system,  (B) ,  is  always 
a  vector  of  100. O's.   For  example,  if  the  number  of  equations 
were  5  the  program  would  solve  the  following  system: 

5    4  3  2  1  XI  100 

4    5  4  3  2  X2  100 

3    4  5  4  3  X3  =   100 

2    3  4  5  4  X4  100 

12  3  4  5  X5  100 

The  program  stores  the  solution  and  the  solution  time  on 
the  disk  in  a  file  which  is  identified  as  jobname.DAT.   In 
addition,  the  results  and  solution  time  are  displayed  on  the 
console.   The  system  is  positive  definite  which  guarantees 
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that  no  processor  error  condition  will  occur  in  the  solution 
of  the  system.   The  number  of  steps  to  achieve  solution  is 
fixed  for  a  given  matrix  size,  and  the  amount  of  time  to 
achieve  the  solution  is  not  affected  by  the  accuracy  of  the 
answers.   In  short,  the  only  thing  which  is  of  interest 
here  is  being  able  to  run  a  series  of  benchmarks  which  are 
guaranteed  to  proceed  to  completion. 

The  elapsed  time  is  determined  by  successive  calls  to  an 
assembly  language  routine,  TICKER,  which  must  be  assembled 
separately  and  linked  to  the  FORTRAN  subroutines.   The 
routine  was  added  because  the  Microsoft  FORTRAN  compiler 
has  no  function  which  allows  access  to  the  system  clock. 
For  large  systems,  which  require  more  than  a  few  seconds  to 
solve,  the  program  could  easily  be  set  up  to  signal  the  user 
to  start  and  stop  timing  with  a  stop  watch.   However,  for 
smaller  systems,'  such  as  the  25  and  32  DOF  tests,  the  elapsed 
time  is  too  small  to  determine  with  a  stopwatch.   Particularly 
when  the  results  are  to  be  used  to  predict  solution  times 
for  larger  systems. 
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The  results  of  the  four  test  runs  are  as  follows: 


3.8461538461538E+00 
-1.5539431443739E-15 
6.7087227108802E-15 
1.3505456915410E-15 
-4.094fl604156610E-17 
1.6435513664323E-15 
2.7453422022684E-14 
2. 1610766337363E-14 
3.8A61538461539E+00 


FOR  TEST- 1.  DAT 
The  Solution  Is 

6. 9269455534  349E- 15 

6.9501601786561E-15 

-1.26784O8065005E-15 

4.4550084107864E-15 

7.4119342420338E-15 

6.7101591338120E-15 

-1.9175192891666E-14 

-9.5897682156343E-16 


-5.8183935461B87E-15 
-7. 397651 1644819E-15 
-4.8174716530773E-15 
-5. 7056834 328442E-15 
-7.3233038075074E-15 
-2.0836013365003E-14 
-2.6964397150294E-15 
-£. 133S961976026E-14 


TIME  = 


.05767  MINUTES 


NEQ  = 


25 


F08  TEST-2.DAT 
The  Solution  Is 


3.0303030303030E+00 
-5.3765407995495E-16 

2.0606496035387E-15 
-6.7609270454854E-15 
-5.7766604500654E-15 

2.3465232733079E-15 

1.2880062543391E-14 
-8.0694495013671E-15 

2. 94807581 12488E-15 
-4.9194647979880E-15 

9. 7680238081 105E-15 


2.8196140307940E-17 
8.658348l9928a2£-lS 
7.%85816303165E-16 
2.0326481785032E-15 
3.3827107781548E-16 
1.2883032314559E-14 
-3.9098450557409E-15 
2. 1399342284950E-I4 
2.2982194850899E-14 
2.4517690154337E-14 
3. 0303030303030ErOO 


3. 1618483033404E-i6 
-2. 83428824 I9572E- 15 

2.175115732922SE-15 

5. 7594701^1 3748E-I5 
-8. O298398139056E-16 
-2.2432853447170E-14 

2. 1589175759618E-15 
-2.4628800015&74E-14 
-£. 0530161 31 5457E-: - 
-2.41S30376A2173E-14 


TIME  = 


.11800  MINUTES 


NEQ  = 
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FDR  TES7-3.DAT 
The  Solution  Is 


9.9009900990099E-01 

6.6510189646372E-16 

6.0231650128169E-15 

-2.0094637123553E-15 

-2.8687989483966E-16 

-1.1568290666613E-15 

8.7207840465378E-15 

-1. 639041 1200061E-15 

-1.2004944675362E-14 

8. 198038677341 1E-15 

-4. 1109A06779441E-16 

1.2843962732201E-14 

4. 1975035855025E-15 

2.0954050800393E-14 

3.8276714669663E-15 

-9.5233129178282E-15 

3.4023789901836E-14 

5.4919387864296E-15 

-1.9756178267955E-14 

-2.5651465217669E-16 

-9.8171447719577E-15 

1.7386323809334E-14 

7.4810453570045E-14 

-5.2844278730221E-15 

-4.9256092013141E-14 

5.3017426386583E-14 

1.376871395B846E-14 

-5.5388663718596E-14 

-4.7976771901982E-14 

1.0906959678161E-14 

2. 308430731 1326E-14 

5.5017140084367E-15 

3.6541830133710E-14 

9. 9009900990098E-01 


9.5453377195709E-17 

3. 160S280670458E-17 
-7. 54607577040 1 1 E- 1 5 

2.4533840328452E-15 
-i. 4755330610054E-15 

1. 5067832271 187E-15 
-1.2381694833975E-14 
-5. 200153397971 1E-15 

6.8472608535533E-15 
-1.0210186519736E-14 

9. 5382686 1 244 13E- 15 
-1.1193652655344E-14 

6.4546905439846S-15 
-9.0052087558773E-15 

1.2806988307790E-14 
-7.7232684139203E-16 
-3.0417698345392E-14 
-2.6434621782263E-15 

3. 9992584 196400E- 15 
-1.3820477797203E-15 

2.8267623241653E-14 

2. 1753926657387E-15 
-3.7721279929513E-14 

9.2214384665882E-15 

2.6317476194804E-i4 
-5.0804380408870E-14 
-2.5653900778252E-14 

4.7481349640073E-14 
-5. 4655800567770E-15 
-4.9474940339240E-14 
-7.4740551015651E-14 
-7.2903626883754E-14 
-8.2333428774833E-15 


-6.854074£^91002E-;6 

-2. 1833385348956E-16 

1.8959559151423E-15 

-1.4785018355849E-15 

5. 850742554 1 537E- 1 5 

3, 04635927! 3983Z-1 5 

5. 875933962486 ;E- 15 

1. 1055030982832E-14 

-4. 1598391672334E-15 

2.2705640872189E-15 

-1. 1086024973244E-14 

-8.8145373786180E-16 

-1. 6955941 176263E-1 4 

-1. 241456492! 144E-14 

5.8470481061057E-15 

-L4190569505143E-14 

1.3Ii0805120962E-15 

1.9542460938892E-14 

2. 1280027556825E-15 

1.3528536299486E-16 

-2.6361915038062E-14 

-5.4038187890453E-14 

5. 800728032362 IE-; 6 

2. 86659062 18786E- 14 

-1.74832i7375341E-;4 

-4, 831 134353331  IE- 17 

5. 1317810949042E-14 

1.4264847983392E-15 

4.5790962529292E-14 

2.5633078930214E-14 

8. 103911 1510772E-14 

1. 433385285 1700E- 14 

1.76il46i206863E-i5 


TIME 


3.47767  MINUTES 


NEQ  = 


100 
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FOR  TEST-4.DAT 
The  Solution  Is 


4.9751243781094E-01 

-4.5243592798550E-17 

1.9287997925250E-16 

-2.939724O715880E-16 

3. 56841931 13147E-15 

2. 23670316800766-15 

2.3423274737468E-15 

-2.3369133923859E-15 

1. 481534731 1197E-15 

1.6098180082962E-15 

4.1142527518302E-15 

-1.3439971017726E-16 

3.6405878180938E-15 

-7.4204493566424E-16 

-5.5831197567108E-15 

-1.1138016247761E-14 

-1. 273166791 1900E-14 

1.1129991569071E-14 

7. 85445101362696-15 

-1.8908238702695E-14 

-2.6984423267922E-15 

-1.2559422095201E-14 

8.9192780343309E-15 

1.6831028417556E-14 

-1.4528803365360E-14 

-4.0419987736125E-15 

6.7143807187873E-16 

-4.3836842898259E-14 

-1.7159643252139E-14 

9.5041349490937E-15 

-5. 1536403462991E-14 

-1.7625828454096E-14 

8. 264A581 1471346-15 

-1.3568562182020E-14 

-2.2276578855938E-14 

-3. 1446321094405E-14 

-7.6312355214359E-15 

1.1693870743178E-15 

-2.5021610665137E-14 

B.8949331557590E-14 

4.8018624O08535E-15 

2. 3609456951757E-14 

-5. 44177491660706-15 

-9.8757298592470E-14 

4.2798877724721E-15 

7.3705548019714E-14 

4. 1742722696338E-14 


8. 1040715769944E- 

4.S230247663559E- 

-4.64O779B043720E- 

-1.5759067617456E- 

-2.71606904127676- 

-7.8610974959264E- 

-1.2265976148990E- 

4. 3545595605503E- 

-2.B874830767152E- 

-6.76B11676050O3E- 

2.5555952712158E- 

-1.0247340536123E- 

-2.6210766726603E- 

2. 0984853032874E- 

-1.00080364066866- 

9.9029445306656E- 

1. 9041 18462071 1E- 

-9. 471923461 9579E- 

1.9739929106076E- 

2. 5020628162063E- 

8.471392B861782E- 

1.5484553485252E- 

-2.9080259039352E- 

-3.4373309123280E- 

1.25997906308635- 

-9.7892957149773E- 

-3.2914241639296E- 

4.0763982358910E- 

1.4877203649456E- 

-2. 3408226882068E- 

3. 1699186457967E- 

3.5068528304054E- 

-5.4712634542109E- 

2.3573520522775E- 

3.4438832352252E- 

-1.8711978854088E- 

-1.5691429652028E- 

1. 1510062775483E- 

2. 4449298808 106E- 

-6.0429388230552E- 

-3. 69743251 84603E- 

-4.8371859447327E- 

1.9555839971006E- 

5.79826O7852308E- 

-2.48175623375306- 

-1.6894473575267E- 

1.5O15125441023E- 


-6.30££704i05503E-lt 

-4.80946866564S8E-:£ 

1. 1736265177040E-i5 

1.986339310S254E-15 

-3.230Q53146CS91E-15 

-1.014065B982S7S-15 

-9.431020332:46£E-Ifc 

-4.2&81«)1557947E-!6 

-4.33481567i£4£6E-:t 

-3.302494137042£E-I5 

-4.2330639614£29E-:6 

5.95£54172G09£7E-ib 

-4. 13£785363£5£9t-l7 

1.4503544604853E-15 

4.33873£316376£E-;5 

8.022094648£954E-15 

-1.6908056985753E-15 

-4.04368635ES305E-15 

-2. 792853551 1919E-16 

-7.9476996716735E-:5 

6.03031£9965946E-15 

-1.5BQ3636384612E-14 

-1.1540£90£95994E-L4 

9.B243175602359E-15 

-1.16398387S4459E-14 

8. 8905487799502E-15 

2.0976408578060E-14 

-1.4494634544P72E-14 

4.512925506771SE-15 

3.4801730930349E-14 

-£. 460563829 17££E-: 5 

-2.61S160£352315E-14 

7.705:C4425e0£2E-:6 

1.63739638747796-14 

2.044098368i665E-16 

£.16652251413206-14 

1.83780671737736-14 

-8.20%5138205£5E-i5 

-4. 805261 1442444E-14 

1.3363174370083E-14 

4. 0256525 174786E- 14 

7.3210921226879E-15 

5.7753031997314E-14 

3. 1834614231439E-15 

-2.2O1804£934O05E-14 

-6.3007986153033E-14 

-7.61£09O398i0££E-15 


66 


-2. 283501 1964091E-14 

-1.0022774539354E-13 

4.3343646624364E-14 

7.0939813268461E-15 

2.8251919858608E-14 

-3. 20558780 18689E- 14 

-1.5764743391028E-14 

-4.2716861775601E-15 

1.1405791906399E-13 

-4.2453076345260E-15 

2. 94514631 11B26E-14 

-6.8346372628696E-14 

-5. 745341 1423013E-14 

4. 14978545381 18E-14 

6.9963930172649E-14 

2.6881322987547E-14 

-1.6406994082191E-14 

-7.9561942476198E-14 

-9. 1658330019724E-15 

8.4360246180512E-14 


1.2689i6393S684E-14 
1.1574453269464E-13 

-3. 6739450892 136E- 14 
2.0012673956105E-I4 

-6.4663404204362E-15 
1.1309775543359E-14 
2.3657361537963E-14 

-1.8147460594876E-15 

-5.5741573151303E-14 
1.0362532965526E-13 

-2.8870848145435E-14 
7.3991561334720E-14 
1.8413394245291E-14 

-5.9210679251088E-14 

-5. 3643566057255E-14 
4.7034090288469E-14 
1.9008330582495E-15 
1.3378275230s45E-13 
8.5868721046333E-14 
4.9751243781092E-01 


4. 6640221501 102E-14 
-9.64338766S8429E-14 

1.3493315031049E-14 
-1.2909697895391E-14 

-1.402549552901  IE- 14 

i. 905640466576 IE- 14 

-1.2567799398804S-14 

-4.0i4I08684835SE-14 

-4.2469852155577E-14 

-8.8229045474678E-14 

3.3101567329672E-14 

4.4397262181506E-15 

2.4737510482256E-14 

-2.62462450fl9131E-l^ 

-6.0964496532426E-15 

-6. 133 1586904634c- 14 

6.5605392492S65E-14 

-i.3124826477839E-13 

-9,S17714S19004aE-14 


TIME  = 


27.56250  MINUTES 


NEQ 


200 
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Program  List^s 


$LAR6E 
iNOFLOATCALLS 

PROGRflM  SOLDP 

IMPLICIT  DOUBLE  PRECISION  (ft-H,0-Z) 

INTE6ER*4  ITIME1,   ITIME2,  CENTI 

DII€NSIGN  fl(AOOOQ),   B<200),   J0BNAME<2) 

CHflRftCTER*12  IFN 

REAL*4  TIME 

OPEN(5,FILE=»C0N') 

0PEN(6,FIL£='C0NM 

WRITE(6, *)  '  #+*****  ENTER  A  JOBNAME  (8  CHARACTERS  MAX)  **' 

REPD<5,10)  JOBNflME 
10   FORMAT (2A4) 

WRITE(6,*>  '  *******  ENTER  THE  NUMBER  OF  EQUATIONS  ******** 

WRITE (6,*)  •     (MUST  BE  200  OR  LESS  IN  THIS  VERSION)    " 

READ  (5,*)  NEQ 

RHS=100.0DO 

IEXT='DflT' 

CALL  FNflME(JOBNAME,IEXT,IFN) 

OPEN (2, FILE=IFN, STATUS=' NEW' , FORM=' ^CRKATTED' ) 

NEQM1=NEQ-1 

DO  100  I=i,NBWl 

B(I)=RHS 

II=(I-1)*NEQ+I 

A(II)=NEQ 

IP1=I+1 

DO  100  J=IP1,NEQ 

IJ=(J-1)*NEQ+I 

JI=(I-1)*NE3+J 

fl<IJ)=N£Q-J+I 

A(JI)=A(IJ) 
100  CONTINUE 

B(NEQ)=RHS 

NEQNEQ=NEQ*NEQ 

A(NEQNEG)=NEQ 

CALL  TICKER (ITIME1) 

CALL  ELU(A,NEQ) 

CALL  SLVB(fl,8,NEQ) 

CALL  TICKER (ITIME2) 

CENTI  =  ITIME2  -  ITIME1 

TIME  =  FLOAT (CENTI)  /  5000. 

WRITE (2, 995)  IFN 

WRITE (6, 998)  IFN 
998  FORMAT (T28,' FOR  ',  A12,/, 

*     T28,'The  Solution  Is', /,"S8, 15(1K=) ) 

DO  200  1=1,  NEQ,  3 
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JJ=I 

JJP=JJ+2 

IFUJP.6T..MEQ)  JJP  =  NES 

WRITE(2,'  (1P3E22.13)')   (B(J),  J=JJ,  JJ?) 

WRITE  (6,'  (1P3E22.13)')   (B(K)',K=JJ,JJP) 
200    CONTINUE 

WRITE(6,999)  TIME 

WRITE (2, 999)  TIME 
999    FORMAT  (/,5X,'   TIME  =  » ,  F12. 5,  •  MINUTES',//) 


WRITE  (2,*)  ' 

NEQ 

=',NEC 

WRITE(6,»)  ' 

NEQ 

=',NEQ 

CLOSE (2) 

STOP 

• 

END 

SUBROUTINE  ELU(A,N) 
C 

pHHHHHHHHH  HUHUHHHHUHt  HHHHH  »♦*»*♦»♦♦«♦»**«♦♦*  WHHHHHHHHHHHHHHUHHHHHt* 

c  * 

C  THIS  SUBROUTINE  DECOMPOSES  MATRIX  ft  IMTO  ft  LOWER  UNIT  * 

C  TRIANGULAR  AND  AN  UPPER  TRIANGULAR  MATRIX.  THE  ORIGINAL  MATRIX  * 

C  A  IS  REPLACED  BY  THE  TWO  TRIANGULAR  MATRICES.  THE  DIAGONAL  CF  * 

C  THE  LOWER  MATRIX  IS  NOT  NEEDED  SINCE  IT  IS  A  UNIT  TRIANGULAR  * 

C  MATRIX.  THIS  IS  A  MODIFICATION  OF  A  SUBROUTINE  WRITTEN  IN  * 

C  1965  .  * 

C  * 

Ciit»Mt*MJiiiiiiiin  ■  a  M  n  ■  if  *J|JtJr.Jt|t)LJtUtJtitliJLJfcJfcJtilJl  X  KJLMJL3LM  mjutjm  B  KMJLMJLM  JJtXJULJtAJt 
I1ITITITTTTTTT  ITIVII  W  TTTTfTTTfTT  irTTTTTK  TXTrTTinrXTrTrTir  TTITTirTTXXTrTlrTTTinrTT^ 

C  * 

C  COPYRIGHT  (C)  BY  GILLES  CANTIN                                     * 

C  MONTEREY,  CALIFORNIA,     24  JULY  1984.                               * 

C  * 

irvirTirirTwvvirirv  11  nrmvm  *  *  *  *  *  Jt  ■  *  icTirTTTirTTTTirTtTiFTimrirTirTwitiririririrTTirTir 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 
DIMENSION  Ad) 
NM1=N-1 

DO  100  K=l,NMl 
KP1=K+1 
KK=(K-1)*N+K 
AKK=A(KK) 
DO  100  I=KP1,N 
IK=(K-1)*N+I 
G=-A(IK)/AKK 
A(IK)=G 

DO  100  J=KP1,N 
IJ=U-1)*N+I 
KJ=<J-1)*N+K 
100    A(IJ)=A(IJ)+G*A(KJ) 
RETURN 
END 
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SUBROUTINE  SLVB(fi,B,N) 
C 

^irTTTTTTVITTH  W  KxliVf  IT  IfTTTTT  ITTTTTir  ^  JT~TX  T  k  XTTXXXWX  XXXXXXXXXXXXXXXXXXXXXXX 

c  * 

C  THIS  SUBROUTINE  DOES  A  BACKWARD  SUBSTITUTION  FOLLOWED  BY  A  * 

C  FORWARD  SUBSTITUTION  OF  B  INTO  A,  WHERE  A  KflS  ALREADY  BEEN  * 

C  DECOMPOSED  BY  A  CALL  TO  ELU.  THE  VECTOR  B  13  DESTROYED  RXD  * 

C  REPLACED  BY  THE  ANSWERS  TO  THE  SYSTEM  OF  LINEAR  SUCTIONS.  * 

C  * 

C»»»*»*»»»»«»H«ll«»»««»l»«»IM«HH>»»«lll<»t^JHHt***«»*»»«-t»**«****»»*» 

c  * 

C  •      COPYRIGHT  (O  BY  GILLES  CANTIN  * 

C  MONTEREY,  CALIFORNIA,     24  JULY  1984.  * 

C  * 

Pi  EJtajiJiajtJuiJtKn  1 1 1 1 1  m  a  nm  ■  ■  tajumjtjuummju  m  hxxjujc  munii m mumm 

LH  Kill  FflflMl  ■  ■  Kw  ■  ■■  *  If  1 1  TTTTTTTTIT  I  R  |  It  K  K  V  XXXXXXXTXXXXXXXXXXXXX  XXX XXX 

C 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

DIMENSION  A(1),BU) 

NM1=N-1 

NP1=N+1 

DO  100  K=1,NM1 

KP1=K+1 

BK=B(K) 

DO  100  I=KP1,N 

IK=(K-1)*N+I 
100    B(I)=B(I)+A<IK)*BK 

NN=N*N 

B<N)=B<N)/A(NN) 

DO  300  K=2,N 

I=NP1-K 

J1=I+1 

BI=B(I) 

DO  200  J=J1,N 

IJ=<J-1)*N+I 
200    BI=BI-A(IJ)*B(J) 

B(I)=BI 

II=U-1)*N+I 
300    B(I)=B(I)/A(II) 

RETURN 

END 
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SUBROUTINE  FNfiME i JGENfi*E, EXT,  FN! 
C 

C  * 

C  THIS  SUBROUTINE  TAKES  AN  ALPHANUMERIC  JOBNfiKE  CONTAINED  IN  * 

C  THE  ARRAY  J0BNAME(2)  AND  CONCATENATES  Ir  WITH  THE  EXTENSION  * 

C  NAME  CONTAINED  IN  EXT  AND  RETURNS  THE  COMPOSED  rI-E  NAME  KITH  * 

C  A  PERIOD  SEPARATING  THE  FILE  NAME  AND  FILE  EXTENSION.  THE  * 

C  COMPLETE  NAME  IS  RETURNED  LEFT  JUSTIFIED  IN  THE  ARRAY  FN (3)  * 

C  THIS    VERSION  TAKES  ADVANTAGE  OF  FORTRAN-77  AND  SHOULD  BE  * 

C  MACHINE  INDEPENDENT.   IT  HAS  WORKED  ON  THE  VAX/780  THE  * 

C  APOLLO  MODEL  DN/300,  AND  THE  IBM  PC.  * 

C  * 
CWHHHH  HHHHHHHHHHHH  t«»t«t«<H^«HHtf»««***HHt^*»»*^**«**»**»*»»***»*** 

c  * 

C  COPYRIGHT  (C)  BY  GILLES  CANTIN  * 

C  MONTEREY,  CALIFORNIA,     24  JULY  1984.  * 

C  * 

J**1  w    >  M  »  im  i  I  I  i  n    «»*    »tflM-l-»»w«.M.>¥.M.j.i.M^.x.k.-L-t.'    *'    ■    ■    »    "    *    *  ■    *   M   M    M.   a    m    i    »-'.-«    M    .    >'    J   V    W  M    t   I   k    w 
L,T  W  |RI  FWXWTTTKITirTTTrW  IT  FT1TI TTWTITT  IT  T  *  tl  IT1TTTI  T  TfTTTTXTTITXirTTriMrTTTTTirirTir 

c 

DIMENSION  JOBNAME (2) , FN (3) , JJOB (2) , FFN (3) 

CHARACTERS  JOBCH(8),FNCH(12),EXTCH(4),BLANK,PERI0D 

EQUIVALENCE  (JJOB(l), JOBCH(l) ), (EEXT,EXTCH(1)), (FFN(1),FNCH(1)) 

DATA  BLANK/'  V, PERIOD/'.'/ 

DO  10  1=1,4 
10      EXTCH(I)=BLANK 

DO  20  1=1,8 
20     JOBCH(I)=BLANK 

DO  30  1=1,12 
30      FNCH(I)=BLANK 

DO  40  1=1,2 
40      JJOB(I)=JOBNAME(I) 

EEXT=SXT 

EXTCH(4)=EXTCH(3) 

EXTCH(3)=EXTCH(2) 

EXTCH<2)=EXTCH(1! 

EXTCH(1)=PERI0D 

DO  50  1=1,6 

IF<JQBCH<I).NE.BLANK)   11=1 
50     RCH(I)=JOBCH(I) 

IL=II+1 

IH=IL+3 

DO  60  I=IL, IH 

III=I-II 
60      FNCH(I)=EXTCH<III) 

DO  70  1=1,3 
70     FN(I)=FFN(I) 

RETURN 

END 
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SUBROUTINE  TICKER  (TIME) 

THIS  IS  fiN  8086  ASSEMBLY  LANGUAGE  ROUTINE 
ADAPTED  FROM  A  PROGRAM  WRITTEN  BY  W.  CLAP-  DF  THE 
BOSTON  COMPUTER  SOCIETY,  ONE  CENTER  PLAZA,  BOSTON, 
MASS  02108.  THE  ORIGINAL  VERSION  wAS  FOR  MICROSOF 
FORTRAN  V3.1,  AND  WAS  PUBLISHED  IN  BYTE  MAGAZINE, 
FEB  198A.  THIS  VERSION  HAS  BEEN  MODIFIED  *G 
CONFORM  TO  THE  CALLINS  CONVENTION  FOR  MICROSOFT 
FORTRAN  V3.2. 

AS  IN  THE  VERSION  WRITTEN  BY  CLAFP,  THIS  VERSION 
EXTRACTS  THE  BCD  TIME  FROM  DOS,  AND  RETURNS  THE 
RESULT  TO  THE  CALLIN6  PROGRAM  IN  CENTISECONDS. 


DATA 

SEGMENT  PUBLIC  'DATA' 

DATA 

ENDS 

DGROUP 

GROUP  DATA 

CODE 

SEGMENT 

'CODE' 

ASSUME  CS:CODE,DS:DGROUP,SS:DGROUP 

PUBLIC 

TICKER 

TICKER 

PROC 

FAR 

PUSH 

BP 

MOV 

BP,SP 

PUSH 

AX 

PUSH 

BX 

PUSH 

CX 

PUSH 

DX 

MOV 

AH, 

02CH 

INT 

021H 

XCHG 

CX,DX 

MOV 

AL, 

CH 

MOV 

BL, 

100 

MUL 

BL 

MOV 

CH, 

0 

ADD 

CX, 

AX 

MOV 

AL, 

DH 

MOV 

BL, 

60 

MUL 

BL 

MOV 

DH, 

0 

ADD 

AX, 

DX 

MOV 

DX, 

0 

MOV 

BX, 

6000 

MUL 

BX 

ADD 

CX, 

AX 

ADC 

DX, 

0 

LES 

BX, 

DWORD  PTR  CBP+63 

MOV 

ES: 

CBX],CX 

MOV 

ES: 

CBX+S3,DX 
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POP 

DX 

POP 

CX 

POP 

BX 

POP 

flX 

POP 

BP 

RET 

4 

TICKER 

ENDP 

CODE 

ENDS 
END 
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APPENDIX  C 


FUNCTIONAL  BLOCK  DIAGRAMS 


M 

Q 

Ge-^ 

OOD 

.Jlz; 

O 

m 

£ 

Q 


o 

»— « 
p 

o 

PQ 

iz: 
o 

»— I 

H 
(J 

E> 

f*i 

I 
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COND 


BLCOND 


A 


ESPACE 


EXCOND 


ERREUR 


EXIT 


FUNCTIONAL  BLOCK  COND 
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£ 


ESPACE 


COOR 


BLCOOR 


1 


EXCOOR 


ERHEUR 


EXIT 


FUNCTIONAL  BLOCK  COOR 
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DLPN 


BLDLPN 


EXIT 


1 


EXDLPN 


I 


ERREUR 


FUNCTIONAL  BLOCK  DLPN 
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PREL 


BLPREL 


I 


ESPACE 


EXIT 


FUNCTIONAL  BLOCK  PREL 
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PRND 


.4 

BLPRND 

l 

I 

ESPACE 

EXPRND 

EXIT 


FUNCTIONAL  BLOCK  PRND 
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80 


SOLC 


BLSOLC 


1 


ESP ACE 


EXSOLC 


ERREUR 


EXIT 


FUNCTIONAL  BLOCK  SOLC 


81 


SOLR 


BLSOLR 


EXIT 


ELEMLB 


RDELEM 


ALL 

ELEMENTS 


FUNCTIONAL  BLOCK  SOLR 
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5 

I — I 

o 

PQ 

<^ 
o 


O 
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PQ 

g 

J 

2 

9 

w 

W 

w 

i-3 

w 

Q 

K 

3 

w 

-' 

S3 

i 
i 

s 

Pn 
o 

2 
O 

I— I 

E- 

S 


CQ 

O 

o 

g 

Q 


O 
O 

8 


Pk 
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z 
o 


o 

CO 

w 


i 


OU 

a 


S3 
p 


o 

CO 


o 

55 
O 

5 

s 

O 
CJ 

CO 

55 

O 

i— i 

U 

55 
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I— I 

o 
o 

PQ 

o 


O 
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q 

< 

O 

9 

r-^ 

3 

-J 
Q 

wi 

CO 

O 

P 

o 
D 


0 
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z 

CO 

o 

t— 1 

£ 

H 

cu 

ID 

K 

J 

cu 

O 

(/J 

J 

Fh 

o 

i— i 

CU 

O 

o 

1— 1 

a 

Eh 

o 

P 

i— i 

.— 1 

H 

o 

b 

r/3 

•-I 

o 

« 

w 

w 

t— H 

w 

Q 

E 

W 

s 

O 

E- 

F- 

O 
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g 

O 

Eh 

25 

o 

K 

P-, 

o 

(—1 

E- 

o 

P 
fa 
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% 


I — I 

fa 

u 

o 

fa 

PQ 
!z; 

o 


!z; 
fa 
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o 

I— » 

O 


5 

H 

CO 
CO 

<: 

K 

<: 

H 
S3 

o 

55 


o 

CO 

2 

E- 

9 

I— t 

Q 

% 

3 
H 

b 

1-3 

a 

<3 

Q 
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pl, 


PL, 

2 
H 

o 
o 

CQ 

O 

i — i 

o 
!z; 
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I 


ASSEL 


UNSTEADY  ASSEMBLY  AND  SOLUTION 


EULER 


ASEULR 


DLELEM 


I 


RDELEM 


1 


ELEMLB 


ALL 
ELEMENTS 


FUNCTIONS  FOR  UNSTEADY  ASSEMBLY,   SOLUTION  AND  PRDTCTNG 
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PU 

$ 

o 

-J 

PQ 

o 


O 
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ASSEMBLY  FOR  EIGEN  VALUE  PROBLEM 


J 


MODFG 


1__£ 


ASSEL 


4^ 

^ 

RDELEM 

ELEMLB 

I 

ALL 

ELEMENTS 

© 


ASSEMBLY  FUNCTIONS   FOR  EIGEN  VALUE  PROBLEM 
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APPENDIX  D 
SAMPLE  PROBLEMS  AND  SOLUTIONS 

Conduction  heat  transfer  problem  for  comparison  with 
the  results  of  Dhatt  and  Touzot 

concrete  plate 


T 


0°C 


1 1  1 1 1  1 1 i  i  i  ii  i  1 1 1  1 1 1 1 1 j  1 1  i  i  i , 
1 3m J  ° 


T  =  0UC 


d  =  dx  =  dy  =  1.4  w/(m  °C) 

C  =  2.03  x  106  J/(m3  °C) 

constant  heat  flux  on  inside  =  1 

The  distributed  boundary  condition  on  the  inner  circle 

is  replaced  by  consistent  concentrated  nodal  values: 

nodes  1,17=  0.6545 
nodes  6,  14  =  0.2618 
node      9  =  0.1309 
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The  consistent  nodal  values  are  arrived  at  as  follows: 


0.6545  =  -^j 


0.2618  =   ~- 
6 


0.1309  =   j^- 


In  the  analysis,  the  double  symmetry  allows  only  one  quarter 
of  the  plate  to  be  considered. 
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F.E.M.3. 

G.TOUZOT,  G.DHATT 

MODIFIED  BY 

REHE  E.  RUESCH 


IMAGE  OF  DATA  CARDS 


COLUMN   NUMBER 
CARD  1      2      3      A      5      6      7      S 

NUMBER      1 2345S7890 1 234567890 123A567890123A567890 1 £34567890 1 234567890 1 23A567890 1 23A567890 


1  COMT 

2  HEAT  TRANSFER  IN  A  PERFORATED  SQUARE  PLATE 

3  SAMPLE  PROBLEM  TO  COMPARE  RESULTS  OF  MEF  ON  THE  IBM  PC 

4  WITH  THOSE  OF  THE  AUTHORS,  DHATT  AND  TOUZOT 
5 

6  cms 

7  21   1   2  0.5  0.5 

8  1  0.0  1.0     0.0      5  0.0     3.0     0.0 

9  6  0.3827  0.9239   0.0      8  1.5     3.0     0.0 

10  9  0.707  0.707    0.0      13  3.0     3.0     0.0 

11  14  0.9239  0.3827   0.0      16  3.0     1.5     0.0 

12  17  1.0  0.0     0.0      21  3.0     0.0     0.0 

13  0 

14  COND 

15  1 

16  13   16  21 

17  0 

18  PREL 

19  1   4 

20  1  1.4  1.4     1.4       2.03E6 

21  0 

22  ELEM 

23  4   8   1 

24  1   2   8   1   1   1   1   6   9   10   11   7   3 

25  3   2   8   1   1   1   3   7   11   12   13   8   5 

26  0 

27  SOLC  3 

28  1  0.06545 

29  1   17 

30  2  0. 1309 

31  9 
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32 

3  0.2618 

33 

6      14 

34 

0 

35 

LIN* 

36 

1 

37 

STOP 

CARD 

123456789012; 

NUMBER 

1 

1 234567890 1 234567890 1 234567890 1 234567890 I 234567890 1 234567890 1 234567890 1 234567830 
2      3      4      5      6      7      8 
COLUMN   NUMBER 


END      OF      DATA 


COMMENTS 


HEAT  TRANSFER  IN  A  PERFORATED  SQUARE  PLATE 
SAMPLE  PROBLEM  TO  COMPARE  RESULTS  OF  MEF  ON  THE  IBM  PC 
WITH  THOSE  OF  THE  AUTHORS,  DHATT  AND  TOUZOT 


INPUT  OF  NODES  <M=  0) 


MAX.  NUMBER  OF  NODES 
MAX.  NUMBER  OF  D.O.F.  PER  NODE 
DIMENSIONS  OF  THE  PROBLEM 
COORDINATE  SCALE  FACTORS 
WORKSPACE  IN  REAL  WORDS 


(NNT)=  21" 

(NDLN)=  1 

(NDIM)=  2 

(FAC)=  .500006+00  .500006+00 

(NVA)=  20000 


lOOOOE+01 


INPUT  OF  BOUNDARY  CONDITIONS  <M=  0) 


BOUNDARY  CONDITIONS  CARDS 

>>>>) 1000000000  .OOOOOE+00  .OOOOOE+00  .OOOOOE+00  .OOOOOE+00  .OOOOOE+OO  .OOOOOE+00  .OOOOOE+00 

))>>>         13   16   21   0   0   0   0  0   0   0   0   0  0   0  0   0 

>>>>>0000000000  .OOOOOE+00  .OOOOOE+OO  .OOOOOE+00  .OOOOOE+00  .OOOOOE+00  .OOOOOE+00  .OOOOOE+OO 


TOTAL  NUMBER  OF  NODES 

TOTAL  NUMBER  OF  D.O.F. 

NUMBER  OF  EQUATIONS  TO  BE  SOLVED 

NUMBER  OF  PRESCRIBED  NON  ZERO  D.O.F. 

MUMBER  OF  PRESCRIBED  ZERO  D.O.F. 


(NNT)= 

21 

(NDLT)  = 

21 

(NEQ)= 

18 

(NCLNZ)= 

0 

(NCLZ)  = 

3 
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TOTAL  NUMBER  OF  PRESCRIBED  D.O.F. 


(NCLT)= 


NODAL  COORDINATES  ARRAY 


to 

D.L. 

X 

Y 

z 

EQUATION  NUMBER 

1 

1 

.OOOOOE+00 

.50000E+00 

.OOOOOE+OO 

1 

2 

1 

.OOOOOE+00 

.75000E+00 

.OOOOOE+00 

2 

3 

1 

.OOOOOE+OO 

. 10000E+01 

.OOOOOE+OO 

3 

4 

1 

.OOOOOE+00 

. 12500E+01 

. OOOOOE+00 

4 

5 

1 

.OOOOOE+OO 

.15000E+01 

.OOOOOE+OO 

5 

& 

1 

. 19135E+00 

.46195E+00 

. OOOOOE+00 

6 

7 

1 

.47068E+00 

.98097E+00 

. OOOOOE+OO 

7 

8 

1 

.75000E+00 

. 15000E+01 

.OOOOOE+00 

8 

9 

1 

.35350E+00 

.35350E+00 

. OOOOOE+OO 

9 

10 

1 

.&4013E+00 

.&4013E+00 

. OOOOOE+00 

10 

11 

1 

.92675E+00 

.92675E+00 

.OOOOOE+00 

11 

12 

1 

. 12134E+01 

. 12134E+01 

.OOOOOE+00 

12 

13 

1 

. 15000E+01 

. 15000E+01 

.OOOOOE+00 

-1 

14 

1 

.46195E+00 

. 19135E+00 

.OOOOOE+00 

13 

15 

1 

.98097E+00 

.47068E+00 

.OOOOOE+00 

14 

16 

1 

.15000E+01 

.75000E+00 

.OOOOOE+00 

-2 

17 

1 

.50000E+00 

.OOOOOE+OO 

.OOOOOE+00 

15 

IB 

1 

.75000E+00 

.OOOOOE+00 

.OOOOOE+00 

16 

19 

1 

. lOOOOE+Ol 

.OOOOOE+00 

.OOOOOE+00 

17 

20 

1 

.12500E+01 

.OOOOOE+OO 

.OOOOOE+00 

18 

21 

1 

. 15000E+01 

.OOOOOE+00 

.OOOOOE+00 

-3 

(NEQ) 


INPUT  OF  ELEMENT  PROPERTIES  <M=  0) 


NUMBER  OF  GROUPS  OF  PROPERTIES   (N6PE)=   1 
NUMBER  OF  PROPERTIES  PER  GROUP   (NPRE)=   4 


CARDS  OF  ELEMENT  PROPERTIES 

>)>)>    1  .14000E+01  .14000E+01  .14000E+01  .20300E+07 
)>>>>   0  .OOOOOE+00  .OOOOOE+00  .OOOOOE+OO  .OOOOOE+OO 


INPUT  OF  ELEMENTS  (M=  0) 


MAX.  NUMBER  OF  ELEMENTS 

MAX.  NUMBER  OF  NODES  PER  ELEMENT 

DEFAULT  ELEMENT  TYPE 

NUMBER  OF  GROUPS  OF  ELEMENTS 

INDEX  FOR  NON  SYMMETRIC  PROBLEM 

INDEX  FOR  IDENTICAL  ELEMENTS 


(NELT)= 

4 

(NNEL)= 

a 

(NTPE)= 

1 

(NGRE)  = 

1 

(NSYM)= 

0 

(NIDENT)= 

0 
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ELEMENT:   1  TYPE:  1  N.P. :  8  D.O.F. :  8  N.  PROP:  0  EL.  PROP:  4  GROUP:  1 


CONNECTIVITY  (NE) 


1 


10   11 


ELEMENT:   2  TYPE:  1  N.P. :  8  D.O.F. :  8  N.  PROP:  0  £_.  3RQP:  4  GROUP:  1 

CONNECTIVITY  (NE)    9   14   17  18   19  15   11   10 

ELEMENT:   3  TYPE:  1  N.P.J  8  D.O.F.:  8  N.  PROP:  0  EL.  PROP:  A  GROUP:  ! 

CONNECTIVITY  (NE)   3   7   11  12   13  8   5   4 

ELEMENT:   4  TYPE:  1  N.P. :  8  D.O.F. :  8  N.  PROP:  0  EL.  PROP:  4  GROUP:  1 

CONNECTIVITY  (NE)   11   15   19  20   21  16   13   12 

MEAN  BAND  HEIBHT=    5.3  MAXIMUM   10 

LENGTH  OF  A  TRIAN6LE  IN  KG  (NKG)=  95 

NUMBER  OF  INTEGRATION  POINTS  (NPG)=  36 


INPUT  OF  CONCENTRADED  LOADS  («=  3) 


CARDS  OF  NODAL  LOADS 


TABLE  FG   GOES  FROM  VA(    111)  TO  VP(    128) 


>>>)>   1 

.65450E-01 

>)>>)   1 

17   0 

>)))>   2 

.13090E+00 

)))>)   9 

0   0 

>)>)>   3 

.2618OE+O0 

>>)))   6 

14   0 

)>>)>   0 

.OOOOOE+OO 

0   0 


0   0 


TOTAL  LOAD  VECTOR 

.65450E-01  .OOOOOE+OO  .OOOOOE+OO  .OOOOOE+OO  .OOOOOE+OO  .26180E+00  .OOOOOE+OO  .OOOOOE+OO  .1309! 
00  .OOOOOE+OO 

.OOOOOE+OO  .OOOOOE+OO  .26180E+00  .OOOOOE+OO  .65450E-01  .OOOOOE+OO  .OOOOOE+OO  .OOOOOE+OO 


ASSEMBLING  AND  LINEAR  SOLUTION  (M=  0) 


INDEX  FOR  RESIDUAL  COMPUTATION 
ENERGY   (ENERG)=  .42653E+00 


<NRES)=   1 


ABSOLUTE  VALUE  OF  MINIMUM  PIVOT   =  .97469E+00  EQUATION:   5 
ALGEBRAIC  VALUE=  .97469E+00  EQUATION:   5 
DETERMINANT     =  . 14103E+09  *  10  «    0 


MAX.  RESIDUAL  VALUE=  .26262E-15  EQUATION 
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SOLUTION 


NODES   X 


DEGRESS  OF  FREEDOM  (*  =  PRESCRIBED) 


1 

.OOOOOE+00 

.50000E+00 

.OOOOOE+00 

.  57520E+00 

2 

.OOOOOE+00 

.75000E+00 

.OOOOOE+OO 

.  44681E+00 

3 

.OOOOOE+00 

. 10000E+01 

.OOOOOE+00 

.37137E+00 

A 

.OOOOOE+00 

. 12500E+01 

. OOOOOE+OO 

. 33326E+00 

5 

.OOOOOE+00 

. 15000E+01 

.OOOOOE+00 

•32317E+00 

6 

.  19135E+00 

.46195E+00 

. OOOOOE+00 

. 56684E+00 

7 

.47068E+00 

.98097E+00 

.OOOOOE+00 

.31756E+00 

8 

.75000E+00 

. 15000E+01 

.OOOOOE+OO 

.218S6E+00 

9 

.35350E+00 

.35350E+00 

.OOOOOE+00 

. 53887E+00 

10 

.64013E+00 

.64013E+00 

. OOOOOE+00 

. 33300E+00 

11 

.92675E+00 

.92675E+00 

. OOOOOE+00 

. 19818E+00 

12 

. 12134E+01 

. 12134E+01 

.OOOOOE+00 

.  93103E-01 

13 

. 15000E+01 

. 15000E+01 

.OOOOOE+OO 

.OOOOOE+OO  * 

14 

.46195E+00 

. 19135E+00 

.OOOOOE+00 

. 52269E+00 

IS 

.98097E+00 

.47068E+00 

.OOOOOE+OO 

.21421E+0O 

IS 

.15000E+01 

.75000E+00 

.OOOOOE+00 

.OOOOOE+00  * 

17 

.50000E+00 

.OOOOOE+OO 

.OOOOOE+00 

.50587E+00 

18 

.75000E+00 

. OOOOOE+00 

.OOOOOE+OO 

. 35749E+00 

19 

. 10000E+01 

.OOOOOE+OO 

.OOOOOE+00 

.22597E+00 

20 

. 12500E+01 

.OOOOOE+00 

. OOOOOE+OO 

. 10981E+00 

21 

. 15000E+01 

.OOOOOE+OO 

.  OOOOOE+00 

.OOOOOE+OO  * 

GRADIENTS  IN  ELEMENT  :   1 


P.G.  :  1  COORDINATES 

GRADIENTS 
P.6..  :  2  COORDINATES 

GRADIENTS 
P.G.  :  3  COORDINATES 

GRADIENTS 
P.G.  :  4  COORDINATES 

GRADIENTS 
P.G.  :  5  COORDINATES 

GRADIENTS 
P.G.  :  6  COORDINATES 

GRADIENTS 
P.G.  :  7  COORDINATES 

GRADIENTS 
P.G.  :  8  COORDINATES 

GRADIENTS 
P.G.  :  9  COORDINATES 

GRADIENTS 


.52632E-01 
-.  11372E+00 

.76523E-01 
-.  12315S+00 

. 10041E+00 
-.  11487E+00 

.22283E+00 
-.41886E+00 

.33101E+00 
-.  33351E+00 

. 43919E+00 
-.28656E+00 

.37650E+00 
-.  65190E+00 

. 57236E+00 
-.51763E+00 

.76823E+00 
-.  44680E+00 


.55406E+00 

-.81069E+00 

.74818E+00 

-. 57153E+00 
.94230E+GQ 

-. 33465E+00 

. 52044E+00 
-. 70605E+00 

.72146E+0O 
-.49289E+00 

.92248E+0O 
-.25907E+00 

.44697E+00 
-. 47047E+00 

.66307E+00 
-.32390E+00 

. 87916E+00 
-.11983E+00 
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GRADIENTS  IN  ELEMENT  : 


P.G.  :  1  COORDINATES 

GRADIENTS 
P.G.  :  2  COORDINATES 

GRADIENTS 
P.G.  :  3  COORDINATES 

GRADIENTS 
P.G.  :  4  COORDINATES 

GRADIENTS 
P.G.  :  5  COORDINATES 

GRADIENTS 
P.G.  :  6  COORDINATES 

GRADIENTS 
P.  G.  :  7  COORDINATES 

GRADIENTS 
P.G.  :  8  COORDINATES 

GRADIENTS 
P.G.  :  9  COORDINATES 

GRADIENTS 


. 44697E+00 
-.71704E+00 

.66307E+00 
-.60362E+00 

.B7916E+O0 
-.45595E+00 

. 52044E+00 
-.88575E+00 

.72146E+00 
-.73534E+00 

.92248E+00 
-.59060E+00 

. 55406E+00 
-.8%17E+00 

.74818E+00 
-.  78959E+00 

.94230E+00 
-.69255E+00 


.37650E+00 
-. 40960E+00 

.57236E+00 
-.25620E+0O 

.76823E+00 
-. 14059E+00 

.  222S3E+0O 
-.2416OE+0O 

.  33101E+00 
-.  17979E+0O 

.43919E+00 
-. 10744E+0O 

.  52632E-01 
-.17241E-01 

.  76523E-01 
-.75879E-01 

. 10041E+00 
-.56986E-01 


GRADIENTS  IN  ELEMENT  : 


P.G.   :     1  COORDINATES 

GRADIENTS 
P.G.   :    2  COORDINATES 

GRADIENTS 
P.G.   :     3  COORDINATES 

GRADIENTS 
P.G.   :    4  COORDINATES 

GRADIENTS 
P.G.   :    5  COORDINATES 

GRADIENTS 
P.G.    :    6  COORDINATES 

GRADIENTS 
P.G.   :     7  COORDINATES 

GRADIENTS 
P.G.   :    8  COORDINATES 

GRADIENTS 
P.G.   :    9  COORDINATES 

GRADIENTS 


.11432E+00 
-.11051E+00 

. 13821E+00 
-.11648E+00 

. 16210E+00 
-.  13120E+00 

.50216E+00 
-.27711E+00 

.61034E+00 
-.28059S+00 

.71852E+00 
-.  29573E+00 

.88222E+00 
-.43817E+00 

. 10781E+01 
-.  44335E+00 

.12740E+O1 
-.  46020E+00 


. 10553E+01 
-.25454E+00 

. 12494E+01 
-.  14037E+CK) 

. 14435E+01 
-.25123E-01 

. 10395E+01 
-. 20122E+00 

. 12405E+01 
-.11578E+00 

.14415E+01 
-.24060E-01 

. 10049E+01 
-. 86922E-01 

.12210E+01 
-.28634E-01 

.14371E+01 

.4O218E-01 
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GRADIENTS  IN  ELEMENT  : 


P.G.  :  1  COORDINATES 

GRADIENTS 
P.G.  :  2  COORDINATES 

GRADIENTS 
P.G.  :  3  COORDINATES 

GRADIENTS 
P.  G.  :  4  COORDINATES 

GRADIENTS 
P.G.  :  5  COORDINATES 

GRADIENTS 
P.  G.  :  6  COORDINATES 

GRADIENTS 
P.  G.  :  7  COORDINATES 

GRADIENTS 
P.  G.  :  8  COORDINATES 

GRADIENTS 
P.G.  :  9  COORDINATES 

GRADIENTS 


. 10049E+01 
-.46122E+00 

. 12210E+01 
-.46380E+00 

. 14371E+01 
-.45461E+00 

. 10395E+O1 
-.57615E+00 

. 12405E+01 
-.55835E+00 

. 14415E+01 
-.  53562E+00 

. 10553E+01 
-.65031E+00 

. 12494E+01 
-.62235E+00 

. 14435E+01 
-.59409E+00 


.88222E+00 
-.99442E-01 

. 10781E+01 
-.47956E-01 

. 12740E+01 
-.94565E-02 

.5021&E+00 
-.74187E-01 

.61034E+00 
-.36136E-01 

.71852E+00 
-.72341E-0£ 

.11432E+0O 
-.38270E-01 

. 13821E+00 
-.20090E-01 

. 16210E+0O 
-.42941E-02 


EQUILIBRIUM  RESIDUALS  AND  REACTIONS 


NODES 

X 

Y 

Z 

DEGREES  OF  FREED 

1 

.OOOOOE+00 

.50000E+00 

.OOOOOE+00 

.OOOOOE+00 

2 

.OOOOOE+00 

.75000E+00 

.OOOOOE+00 

-.  10399E-15 

3 

.OOOOOE+00 

.10000E+01 

.OOOOOE+00 

•27756E-16 

4 

.OOOOOE+00 

.12500E+01 

.OOOOOE+OO 

-. 77743E-16 

5 

.OOOOOE+00 

.15000E+01 

.OOOOOE+00 

. 13109E-15 

& 

.  19135E+00 

.46195E+00 

.OOOOOE+00 

-.27756E-15 

7 

.47068E+00 

.98097E+00 

.OOOOOE+OO 

-.11102E-15 

8 

.75000E+00 

. 15000E+01 

.OOOOOE+00 

-.63315E-16 

9 

.35350E+00 

.35350E+00 

.OOOOOE+00 

.37470E-15 

10 

.64013E+00 

.64013E+00 

.OOOOOE+OO 

-.40246E-15 

11 

.92675E+00 

.92675E+00 

.OOOOOE+00 

.30531E-15 

12 

. 12134E+01 

.  12134E+01 

.OOOOOE+00 

. 19429E-15 

13 

•15000E+01 

.  15000E+01 

.OOOOOE+OO 

-. 10288E+00  * 

14 

.46195E+00 

.  19135E+00 

.OOOOOE+00 

.11102E-15 
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15  .98097E+00 

16  .15000E+01 

17  .50000E+00 

18  .75000E+00 

19  .10000E+01 

20  .12500E+01 

21  .15000E+01 


. 47068E+00 
.7500OE+O0 

.0OOOOE+OO 
.0000OE+0O 
.0OO0OE+OO 
.OOOOOE+00 
.0OO00E+O0 


. 00OO0E+0O 
.00000E+00 
.OOOOOE+00 
.000O0E+OO 
.OOOOOE+00 
.OOOOOE+00 
.0OO0OE+0O 


.11102E-15 
-.52531E+00  * 
-. 13878E-16 
-.25562E-15 
.69389E-I6 
.  10714E-15 
-.  15722E+00  * 


END  OF  PROBLEM, 


314  UTILIZED  REAL  WORDS  OVER 


20000 
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Concrete  elliptical  arch  in  plane  stress,  for 
comparison  with  the  results  of  Dhatt  and  Touzot. 

EIGEN  VALUE  PROBLEM 


0.5m 


"1 


3m 


15    18    20    23 


E  =  0.2x10  tons/m 
v   =  0.3 

thickness  =  lm 
sp.  wt.  2.3  tons/m 


24\(5)  '25 


The  loads  consist  of  the  distributed  dead 
weight,  and  the  concentrated  force  of  10 
tons  at  node  3. 
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IMflGE  OF  DATA  CARDS 


r.E.  M.  3. 

G.TOUZOT,  B.DHATT 

MODIFIED  BY 


REHE  E.  RUESCH 


CARD 
NUMBER 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11- 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
28 
27 


COLUMN   NUMBER 
1       2       3       A       5       6       7       8 
12345678901234567890123456789012345678901234567390123456789012345678901234567890 

COMT 
ELASTIC  ANALYSIS  OF  AN  ELLIPTIC  HALF  BRIDGE  ARCH  IN  PLANE  STRESS 
SAMPLE  PROBLEM  TO  COMPARE  THE  RESULTS  OF  *EF  ON  THE  IBM  PC 
WITH  THOSE  OF  THE  AUTHORS,  DHATT  AND  TOUZOT 


COOR 

28 

3 

5 

2 

7 

12 

17 

19 

1 

4 

6 

9 

11 

14 

16 

24 

26 

27 

28 

25 

21 


2 
0.00 
0.75 
0.00 
1.50 
3.50 
5.00 
5.75 
0.00 
0.75 
1.50 
2.50 
3.50 
4.25 
5.00 
5.75 
6.00 
6.25 
6.50 
6.50 
6.50 


3.50 
3.50 
3.25 
3.20 
2.97 
2.58 
1.70 
3.00 
2.98 
2.90 
2.73 
2.44 
2.12 
1.66 
0.86 
0.00 
0.00 
0.00 
0.87 
1.75 


23 
20 


6.50 
5.75 


3.50 
3.50 


CARD 

NUMBER 


12345678901234567890123456789012345678901234567890123456789012345678901234567850 
12       3       4       5       6       7       6 
COLUMN   NUMBER 
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CARD 
NUMBER 


28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 


CARD 

NUMBER 


COLUMN      NUMBER 
12  3  4  5  5  7  8 

123456789012345678901234567890123456789012345678901234567890:234567690:234567390 


2.0E6   0.3 


22     6.50 
-1 
COND 
11 

26   27   28 
10 

1   2   3 
0000000000 
PREL 

1   4 
1 
-1 
ELEM 
5 
1 
5 
-1 
SOLC 
1 
3 
-1 
SOLR 
VflLP 
3 
STOP 


2.62 


25      21      22      23 


2 
5 
0 


1 
0 
0 


0.0 


0 

0 


2.3 


14       6       7       8       5       3       2 
26      27      2B      25      21      19      16      24 


0.00       -10.00 


20  0.001 


0.0 


12       l.D-12 


12345678901234567890123456789012345678901234567890123456789012345678901234567630 
12  3  4  5  6  7  8 

COLUMN      NUMBER 


END      OF      DATA 


COMMENTS 


ELASTIC  ANALYSIS  OF  AN  ELLIPTIC  HALF  BRIDGE  ARCH  IN  PLANE  STRESS 
SAMPLE  PROBLEM  TO  COMPARE  THE  RESULTS  OF  MEF  ON  THE  IBM  PC 
WITH  THOSE  OF  THE  AUTHORS,  DHATT  AND  TOUZOT 


INPUT  OF  NODES  <M=  0) 
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MAX.  NUMBER  OF  NODES 
MAX.  NUMBER  OF  D.O.F.  PER  NODE 
DIMENSIONS  CF  THE  PROBLEM 
COORDINATE  SCALE  FACTORS 
WORKSPACE  IN  REAL  WORDS 


(NNT)= 

26 

(NDLN)= 

2 

(NDIM)= 

2 

(FAC)= 

. lOOOOE+Ol 

. 100002+01 

.  10000E+0L 

<nva>= 

20000 

INPUT  OF  BOUNDARY  CONDITIONS  (M=  0) 


BOUNDARY  CONDITIONS  CARDS 


)>) 1100000000  .OOOOOE+00  .OOOOOE+00  .OOOOOE+00  .OOOOOE+00  .000002+00  .OOOOOE+00  .OOOOOE+00 

>)>  26   27   28   0   0   0   0  0   0   0   0   0   0   0  0   0 

>>) 1000000000  .OOOOOE+00  .OOOOOE+OO  .OOOOOE+OO  .OOOOOE+00  .OOOOOE+OO  .OOOOOE+OO  .OOOOOE+00 

>}>  1   2   3  25   21   22   23  0   0   0   0   0   0   0  0   0 

)>)0000000000  .OOOOOE+00  .OOOOOE+OO  .OOOOOE+00  .OOOOOE+OO  .OOOOOE+OO  .OOOOOE+OO  .OOOOOE+OO 


TOTAL  NUMBER  OF  NODES 

TOTAL  NUMBER  OF  D.O.F. 

NUMBER  OF  EQUATIONS  TO  BE  SOLVED 

NUMBER  OF  PRESCRIBED  ,MON  ZERO  D.O.F. 

MUMBER  OF  PRESCRIBED  ZERO  D.O.F. 

TOTAL  NUMBER  OF  PRESCRIBED  D. 0. F. 


(NNT)= 

28 

(NDLT)= 

56 

(N£Q)  = 

43 

(NCLNZ)= 

0 

(NCLZ)= 

13 

(NCLT)= 

13 

NODAL  COORDINATES-  ARRAY 


0 

D.L. 

X 

Y 

Z 

EQUATION  NUMBER 

1 

2 

.OOOOOE+OO 

.30000E+01 

.OOOOOE+OO 

-7 

1 

2 

2 

.OOOOOE+00 

.32500E+01 

.OOOOOE+00 

-8 

u 

3 

2 

.OOOOOE+OO 

.35000E+01 

.OOOOOE+OO 

-9 

3 

4 

2 

.75000E+00 

.29800E+01 

.OOOOOE+00 

4 

5 

5 

2 

.75000E+00 

.350002+01 

.OOOOOE+OO 

6 

7 

6 

2 

.15000E+01 

.29000E+01 

.000002+00 

8 

9 

7 

2 

.15000E+01 

.320002+01 

.OOOOOE+OO 

10 

11 

8 

2 

.16250E+01 

.35000E+01 

.OOOOOE+00 

12 

13 

9 

2 

.25000E+01 

.27300E+01 

.OOOOOE+OO 

14 

15 

10 

2 

•24167E+01 

.35000E+01 

.OOOOOE+00 

18 

17 

11 

2 

.35000E+01 

.24400E+01 

.OOOOOE+00 

18 

19 

12 

2 

.35000E+01 

.29700E+01 

.OOOOOE+00 

20 

21 

13 

2 

.32500E+01 

.35000E+01 

.OOOOOE+00 

22 

23 

14 

2 

.42500E+01 

.21200E+01 

.OOOOOE+00 

24 

25 

15 

2 

.40833E+01 

.35000E+01 

.OOOOOE+OO 

26 

27 

16 

2 

.50000E+01 

. 16600E+01 

.OOOOOE+00 

28 

29 

(NEB) 
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17 

2 

•5000OE+01 

.25800E+01 

. 00000E+00 

30 

31 

18 

2 

. 48750E+01 

.35000E+01 

.0OO00E+O0 

32 

33 

19 

2 

.57500E+01 

. 17000E+01 

. 0O000E+00 

34 

35 

20 

2 

.57500E+01 

.35000E+01 

. 0O000E+00 

36 

37 

21 

2 

.65000E+01 

. 1750OE+O1 

.OOOOOE+00 

-11 

38 

22 

2 

.65000E+01 

.26200E+01 

. 0OOOOE+0O 

-12 

39 

22 

2 

.65000E+01 

.3500OE+01 

.OOOOOE+00 

-13 

40 

24 

2 

.57500E+01 

.86000E+00 

.O0O00E+O0 

41 

42 

25 

2 

.65000E+01 

.87000E+00 

.0O0OOE+O0 

-10 

43 

26 

2 

.60000E+01 

.00000E+00 

. OOOOOE+00 

-1 

-2 

27 

2 

.62500E+01 

.0OOO0E+00 

.00000E+00 

-3 

-4 

28 

2 

.65000E+01 

.OOOOOE+00 

. 0OO0OE+0O 

-5 

-fa 

INPUT  OF  ELEMENT  PROPERTIES  (M=  0) 


NUMBER  OF  GROUPS  OF  PROPERTIES   (NGPE)=   1 
NUMBER  OF  PROPERTIES  PER  GROUP   (NPR£>  =   4 


CARDS  OF  ELEMENT  PROPERTIES 

>>>>)    1  .20000E+07  .30000E+00  .OOOOOE+00  .23000E+01 
)>>>>   -1  .OOOOOE+00  .OOOOOE+00  .OOOOOE+00  .OOOOOE+00 


INPUT  OF  ELEMENTS  (M=  0) 


MX.  NUMBER  OF  ELEMENTS 

MAX.  NUMBER  OF  NODES  PER  ELEMENT 

DEFAULT  ELEMENT  TYPE 

NUMBER  OF  GROUPS  OF  ELEMENTS 

INDEX  FOR  NON  SYMMETRIC  PROBLEM 

INDEX  FOR  IDENTICAL  ELEMENTS 


(NELT)= 

5 

(NNEL)= 

8 

(NTPE)= 

2 

(NSRE)  = 

i 

(NSYM)= 

0 

(NIDENT)= 

0 

ELEMENT:    1  TYPE:  2  N.P. :  8  D.C.F. :  16  N.  PROP:  0  EL.  PROP:  4  GROUP:  0 

CONNECTIVITY  (NE)    14   6  7   8  5   3   2 

ELEMENT:   2  TYPE:  2  N.P. :  8  D.O.F. :  16  N.  PRO?:  0  EL.  PROP:  4  GROUP:  0 

CONNECTIVITY  (NE)   6   9   11  12   13  10   8   7 

ELEMENT:   3  TYPE:  2  N.P.:  8  D.O.F. :  16  N.  PROP:  0  EL.  PROP:  4  GROUP:  0 

CONNECTIVITY  (NE)   11   14   16  17   18  15   13   12 

ELEMENT:   4  TYPE:  2  N.P.:  8  D.O.F. :  16  N.  PROP:  0  EL.  PROP:  4  GROUP:  0 

CONNECTIVITY  (NE)   16   19   21  22   23  20   18   17 

ELEMENT:   5  TYPE:  2  N.P. :  8  D.O.F. :  16  N.  PROP:  0  El.  PROP:  4  GROUP:  0 

CONNECTIVITY  (NE)   26   27   28  25   21  19   16   24 

MEAN  BAND  HEISHT=    9.1MAXIMUM=   15 

LENGTH  OF  A  TRIANGLE  IN  KG  (NKG)=  393 

NUMBER  OF  INTEGRATION  POINTS  (NPG)=  45 
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INPUT  OF  CONCENTRADED  LOADS  («=  0) 


CARDS  OF  NODAL  LOADS 


»>>>    1  .OOOOOE+OO  -.10000E+02 
>>)>>    3   0   0   0   0   0 
>>)>>   -1  .OOOOOE+00  .OOOOOE+00 


0   0 


ASSEMBLING  OF  DISTRIBUTED  LOADS  (M=  0) 


SUBSPACE  ITERATION  (M=  0) 


NUMBER  OF  DESIRED  EIGENVALUES 

MAX.  NUMBER  OF  ITERATIONS  PERMITTED 

INDEX  FOR  DIAGONAL  MATRIX 

CONVERGENCE  TOLERANCE  ON  EIGENVALUES 

SHIFT 

SUBSPACE  DIMENSION 

MAX.  NUMBER  OF  ITERATION  IN  JACOBI 

CONVERGENCE  TOLERANCE  IN  JACOBI 


(NVALP)= 

3 

(NITER)= 

20 

(NMDIAG)= 

0 

(EPSLB)= 

. 10000E-02 

(SHIFT)* 

. OOOOOE+OO 

(NSS)= 

5 

(NS*N)= 

12 

(TOLJflC)= 

.;ooGOE-a 

ITERATION   1  MAX.  ERROR=  .5E+06  EXACT  EIGENVALUES:  0 

ITERATION   2  MAX.  ERROR=  .4E+00  EXACT  EIGENVALUES:  0 

ITERATION   3  MAX.  ERROR=  . 1E-01  EXACT  EIGENVALUES:  3 

....  CONVERGENCE  IN   4  ITERATIONS 


EIGENVALUE  NO. 


1  =  .56152E+04 


EIGENVECTOR: 


NODES 


DEGREES  OF  FREEDOM  (*  =  PRESCRIBED) 


1 

.OOOOOE+00 

.30000E+01 

.OOOOOE+00 

.OOOOOE+00  * 

.66375E+00 

2 

.OOOOOE+00 

.32500E+01 

.OOOOOE+00 

.OOOOOE+OO  * 

.66172E+00 

3 

.OOOOOE+00 

.35000E+01 

.OOOOOE+00 

.OOOOOE+00  * 

. 65667E+0O 

4 

.75000E+00 

.29800E+01 

.OOOOOE+00 

-. 13930E-01 

. 60786E+00 

5 

.75000E+00 

.35000E+01 

.OOOOOE+00 

.45051E-01 

.60490E+00 

6 

.15000E+01 

.29000E+01 

.OOOOOE+00 

-.A0117E-01 

.45147E+00 

7 

.15000E+01 

.32000E+01 

.OOOOOE+00 

. 18612E-01 

.47890E+00 

8 

. 16250E+01 

.35000E+01 

.OOOOOE+00 

.78526E-01 

.45397E+00 

9 

.25000E+01 

.27300E+01 

.OOOOOE+00 

-.43577E-01 

.28471E+0O 
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10 

.24167E+01 

. 35000E+01 

. OOOOOE+OO 

.80294E-01 

. 29658E+00 

11 

•35000E+01 

.24400E+01 

.OOOOOE+OO 

-.433S9E-01 

. 14162E+00 

12 

.35000E+01 

.29700E+01 

.OOOOOE+OO 

.72541E-02 

. 13794E+00 

13 

.32500E+01 

.35000E+01 

.OOOOOE+OO 

.68736E-01 

. 17225E+00 

14 

.42500E+01 

.21200E+01 

.OOOOOE+OO 

-.32304E-01 

.72376E-01 

15 

.40833E+01 

.35000E+01 

.OOOOOE+OO 

. 48682E-01 

.85795E-01 

16 

.50000E+01 

. 16600E+01 

. OOOOOE+OO 

-. 17548E-01 

.30240E-01 

17 

.50000E+01 

•25800E+01 

.OOOOOE+OO 

-.50562E-02 

ia 

.48750E+01 

.35000E+01 

.OOOOOE+OO 

•29860E-01 

.39282E-01 

19 

.57500E+01 

. 17000E+01 

.OOOOOE+OO 

-.78157E-02 

. 17301E-01 

20 

.57500E+01 

.35000E+01 

.OOOOOE+OO 

.  14539E-01 

. 15647E-01 

21 

.65000E+01 

. 17500E+01 

.OOOOOE+OO 

.OOOOOE+OO  * 

.116C1E-01 

22 

.65000E+01 

.26200E+01 

.OOOOOE+OO 

.OOOOOE+OO  * 

.95616E-02 

23 

.65000E+01 

.35000E+01 

.OOOOOE+OO 

.OOOOOE+OO  * 

.11585E-01 

24 

.57500E+01 

.86000E+00 

.OOOOOE+OO 

-. 19224E-02 

.  13207E-01 

25 

.65000E+01 

.87000E+00 

.OOOOOE+OO 

•OOOOOE+OO  * 

■9833SE-C2 

26 

.60000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO  * 

■OOOOOE+OO  * 

27 

•62500E+01 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO  * 

■OOOOOE+OO  * 

28 

.65000E+01 

.OOOOOE+OO 

. OOOOOE+OO 

.OOOOOE+OO  * 

■OOOOOE+OO  * 

EIGENVALUE  NO. 

2=  .37888E+05 

EIGENVECTOR: 

NODES 

X 

Y 

z 

DEGREES  OF  FREEDOM 

<*  =  PREBCRIB 

1 

.OOOOOE+OO 

.30000E+01 

.OOOOOE+OO 

.OOOOOE+OO  * 

-. 43557E+00 

2 

.OOOOOE+OO 

.32500E+01 

.OOOOOE+OO 

.OOOOOE+OO  * 

-.43947E+G0 

3 

.OOOOOE+OO 

.35000E+01 

.OOOOOE+OO 

.OOOOOE+OO  « 

-. 43308E+C0 

4 

.75000E+00 

.29800E+01 

.OOOOOE+OO 

.75478E-01 

-.30S06E+00 

5 

.75000E+00 

.35000E+01 

.OOOOOE+OO 

-.66589E-01 

-.30728E+00 

6 

.15000E+01 

.29000E+01 

.OOOOOE+OO 

. 12568E+00 

-.50310E-01 

7 

.15000E+01 

.32000E+01 

.OOOOOE+OO 

.19733E-01 

-.43091E-01 

8 

.16250E+01 

.35000E+01 

.OOOOOE+OO 

-.83712E-01 

-.50229E-02 

9 

.25000E+01 

.27300E+01 

.OOOOOE+OO 

. 10301E+00 

■25248E+0O 

10 

.24167E+01 

.35000E+01 

.OOOOOE+OO 

-.  30655E-01 

. 23703E+00 

11 

.35000E+01 

.24400E+01 

.OOOOOE+OO 

.43413E-01 

■31596E+00 

12 

.35000E+01 

.29700E+01 

.OOOOOE+OO 

.53209E-01 

■32955E+00 

13 

.32500E+01 

.35000E+01 

.OOOOOE+OO 

.32536E-01 

.31620E+0O 

14 

.42500E+01 

.21200E+01 

. OOOOOE+OO 

.34673E-02 

. 27207S+00 

15 

.40833E+01 

.35000E+01 

.OOOOOE+OO 

•74869E-01 

.  29474E+0O 

16 

.50000E+01 

. 16600E+01 

.OOOOOE+OO 

-. 12682E-01 

.  20050E+00 

17 

.50000E+01 

.25800E+01 

.OOOOOE+OO 

.22806E-01 

.210032+00 

18 

.48750E+01 

.35000E+01 

.OOOOOE+OO 

.77638E-01 

. 23648E+00 

19 

■57500E+01 

. 17000E+01 

.OOOOOE+OO 

-.23282E-02 

. 14O99E+0O 

20 

.57500E+01 

.35000E+01 

•OOOOOE+OO 

•40232E-01 

. 17473E+0O 

21 

.65000E+01 

. 17500E+01 

.OOOOOE+OO 

•OOOOOE+OO  * 

.11596E+00 

22 

.65000E+01 

.26200E+01 

.OOOOOE+OO 

•OOOOOE+OO  ♦ 

. 14199E+00 

23 

.65000E+01 

.35000E+01 

.OOOOOE+OO 

•OOOOOE+OO  * 

. 15438E+00 

24 

.57500E+01 

.86000E+00 

.OOOOOE+OO 

. 15066E-02 

. 10386E+00 

25 

.65000E+01 

.87000E+00 

.OOOOOE+OO 

•OOOOOE+OO  * 

.717822-01 
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26  .60000E+01  .OOOOOE+00  .OOOOOE+00 

27  .62500E+01  .OOOOOE+00  .OOOOOE+00 

28  .65000E+01  .OOOOOE+OO  .OOOOOE+00 


.OOOOOE+00  *  .OOOOOE+00  * 
.OOOOOE+OO  *  .OOOOOE+OO  * 
.OOOOOE+OO  *   .OOOOOE+OO  * 


EIGENVALUE  NO. 


3  =    . 10014E+06 


EIGENVECTOR: 


NODES 


DEGREES  OF  FREEDOM  (*  =  DESCRIBED) 


1 

.OOOOOE+00 

.30000E+01 

.OOOOOE+00 

.OOOOOE+00  * 

-.A1128E+00 

2 

.OOOOOE+00 

.32500E+01 

.OOOOOE+00 

.OOOOOE+OO  * 

-. A259AE+00 

3 

.OOOOOE+00 

.35000E+01 

.OOOOOE+00 

.OOOOOE+00  * 

-.Ai6£6E+00 

4 

.75000E+00 

.29800E+01 

.OOOOOE+00 

. 1257AE+00 

-.22292E+00 

5 

.75000E+00 

.35000E+01 

.OOOOOE+OO 

-.69262E-01 

-.225A1E+00 

6 

. 15000E+01 

.29000E+01 

.OOOOOE+00 

. 17A83E+00 

. 10569E+O0 

7 

.15000E+01 

.32OO0E+O1 

.OOOOOE+OO 

.6893AE-01 

.11778E+00 

a 

.16250E+01 

.35000E+01 

.OOOOOE+00 

-. 33533E-01 

. 1492AE+00 

9 

.25000E+01 

.27300E+01 

.OOOOOE+OO 

.89392E-01 

. 32A37E+00 

10 

.24167E+01 

.35000E+01 

.OOOOOE+00 

.86100E-01 

.32239E+00 

11 

.35000E+01 

.24400E+01 

.OOOOOE+00 

-. 4720SE-01 

. 12451E+00 

12 

.35000E+01 

.29700E+01 

.OOOOOE+00 

.815AAE-01 

. 14886E+00 

13 

.32500E+01 

.35000E+01 

.OOOOOE+00 

. 18077E+00 

.2O02OE+0O 

14 

.42500E+01 

.21200E+01 

.OOOOOE+OO 

-. 87810E-01 

-.78360E-01 

15 

.40833E+01 

.35000E+01 

.OOOOOE+00 

. 18541E+00 

-.14116E-01 

16 

.50000E+01 

. 16600E+01 

. OOOOOE+OO 

-.75138E-01 

-.21317E+00 

17 

.50000E+01 

.25800E+01 

.OOOOOE+00 

-. 10A74E-01 

-.21304E+00 

18 

.48750E+01 

.35000E+01 

.OOOOOE+OO 

. 135AAE+00 

-. 17131E+00 

19 

•57500E+01 

. 17000E+01 

.OOOOOE+00 

-.A1600E-01 

-.21638E+00 

20 

.57500E+01 

.35000E+01 

.OOOOOE+OO 

.62931E-01 

-.27285E+00 

21 

.65000E+01 

. 17500E+01 

.OOOOOE+00 

.OOOOOE+OO  * 

-.22656E+C0 

22 

.65000E+01 

.26200E+01 

.OOOOOE+00 

.OOOOOE+00  * 

-.28436E+00 

23 

.65000E+01 

.35000E+01 

.OOOOOE+OO 

•OOOOOE+00  * 

-.29085E+00 

24 

•57500E+01 

.86000E+00 

.OOOOOE+00 

-.27562E-01 

-.  16051E+00 

25 

.65000E+01 

.870O0E+OO 

.OOOOOE+00 

.OOOOOE+00  * 

-.11610E+0O 

26 

.60000E+01 

.OOOOOE+00 

.OOOOOE+00 

.OOOOOE+OO  * 

.0OO00£+(Xi  * 

27 

.62500E+01 

.OOOOOE+OO 

.OOOOOE+00 

.OOOOOE+00  * 

.OOOOOE+OO  * 

28 

.65000E+01 

.OOOOOE+00 

.OOOOOE+OO 

.OOOOOE+00  * 

.OOOOOE+00  * 

1  OF  PROBLEM, 

1676  UTILIZED  REAL  WORDS  OVER    20000 
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The  following  table  of  results  for  the  cantilevered 
beam  was  obtained  by  Carlos  A.  Felippa. 


DEFLECTION  AND  NORMAL  STRESS 

Element 

Mesh 

Tip  Deflection 
S=v0 

Stress  C 
at  X=  9",Y=  6" 

CST 

A-1 
A-2 

0.30556 
0.34188 

51.225 
57.342 

LST 

B-1 

B-2 

0.35506 
0.35569 

59.145 
60.024 

Beam  Theory 
(upper  bound  for  v~ ) 

0.35583 

60.000 

For  comparison,  the  tip  defelections  from  MEF  are  the 
ones  for  nodes  161  thru  165.  The  stresses  are  the  stresses 
listed  for  Gauss  Point  3  of  elements  51  and  52. 
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IMAGE  OF  DATA  CARDS 


F.E.M.3. 

G.TOUZOT,  G.DHATT 
MODIFIED  BY 

REHE  E.  RUESCH 


COLUMN   NUMBER 

S 


CARD 

1 

2 

4 

5 

5 

7 

NUMBER 

1234567890123456789012345678901234567890123455789012345578901; 

J34567890 

1 

COMT 

2 

CANTILEAVERED  BEAK  12  X  48  X  1  ( 

INCHES) 

3 

6  NODED  TRIANGUALfiR  ELEMENTS  (ELEMG3) 

4 

64  ELEMENTS 

5 
6 

7 

FOR  COMPARISON  HI" 

fH  THE  RESULTS 

CF  CARLOS  A.  FEL 

IP3A 

COOR 

8 

165 

2   2 

9 

1 

0.0 

0.0 

0.0 

161 

48.0 

0.0 

0.0 

iO 

2 

0.0 

3.0 

0.0 

162 

48.0 

3.0 

0.0 

11 

3 

0.0 

6.0 

0.0 

163 

48.0 

6.0 

0.0 

12 

4 

0.0 

9.0 

0.0 

164 

48.0 

9.0 

0.0 

13 

5 

0.0 

12.0 

0.0 

165 

48.0 

12.0 

0.0 

14 

0 

15 

COND 

16 

11 

17 

1,2,3,4,5,0 

18 

0 

19 

PREL 

20 

1 

3 

21 

1,30.0E03,0.25,0.0 

» 

22 

0 

23 

ELEM 

24 

64 

6   3 

25 

1 

15   10 

3 

1 

1 

1 

6 

11   12 

13   7 

0 

28 

17 

16   10 

1 

1 

1 

7 

13   8 

3   2 

0 

27 

33 

16   10 

3 

1 

1 

3 

B 

13   9 

5   4 

0 

28 

49 

16   10 

3 

1 

1 

5 

9 

13   14 

15   10 

0 

29 

0 

30 

SOLC 

31 

1,0.0, 

-40.0,0.0 
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32 

163, 

•  33 

0 

34 

LINM 

35 

36 

STOP 

CARD 

1234! 

1234567890123456789O123456789O123456789Ol2345673901234567890i2345b7S9O:2245E755O 
12  3  4  5  6  7  8 

COLUMN      NUMBER 


COMMENTS 


END      OF      DATA 


CAN7ILEAVERED  BEAM  12  X  48  X  1  (INCHES) 

6  NODED  TRIANGUALAR  ELEMENTS  (ELEM03) 

64  ELEMENTS 

FOR  COMPARISON  WITH  THE  RESULTS  OF  CARLOS  A.  FELIPPA 


INPUT  OF  NODES  («=  0) 


MAX.  NUMBER  OF  NODES 

(NNT)= 

165 

MAX.  NUMBER  OF  D.O.F.  PER  NODE 

(NDLN)= 

2 

DIMENSIONS  OF  THE  PROBLEM 

(NDIM)= 

2 

COORDINATE  SCALE  FACTORS 

(FAC)= 

.  lOOOOE+Ol 

WORKSPACE  IN  REAL  WORDS 

<NVA)= 

20000 

LOOOOE+Ol     . lOOOOE+01 


INPUT  OF  BOUNDARY  CONDITIONS  <M=  0) 


BOUNDARY  CONDITIONS  CARDS 

)>>>) 1100000000    .OOOOOE+00    .OOOOOE+00    .OOOOOE+00    .OOOOOE+00    .OOOOOE+00    .OOOOOE+OQ    .OOOOOE+00 
>>>)>  123450000000000        0 

>>)>)0000000000    .000002+00    .OOOOOE+OO    .OOOOOE+00    .OOOOOE+00    .OOOOOE+OO    .OOOOOE+00    .OOOOOE+00 


TOTAL  NUMBER  OF  NODES  (NNT)=  165 

TOTAL  NUMBER  OF  D.O.F.  (NDLT)=  330 

NUMBER  OF  EQUATIONS  TO  BE  SOLVED  (NEQ)=  320 

NUMBER  OF  PRESCRIBED  NON  ZERO  D.O.F.  (NCLNZ)=  0 

MUMBER  OF  PRESCRIBED  ZERO  D.O.F.  (NCLZ)=  10 
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TOTAL  NUMBER  OF  PRESCRIBED  D.O.r. 


(NCLT)=   10 


NODAL  COORDINATES  ARRAY 


NO  D.L. 


1 

2 

2 

2 

3 

2 

A 

2 

5 

2 

6 

2 

7 

2 

8 

2 

9 

2 

10 

2 

11 

2 

12 

2 

13 

2 

14 

2 

15 

2 

16 

2 

17 

2 

IB 

2 

19 

2 

20 

2 

21 

2 

22 

2 

23 

2 

24 

2 

25 

2 

26 

2 

27 

2 

26 

2 

29 

2 

30 

2 

31 

2 

32 

2 

33 

2 

34 

2 

35 

2 

36 

2 

37 

2 

38 

2 

39 

2 

40 

2 

41 

2 

42 

2 

43 

2 

X 


.OOOOOE+OO  .OOOOOE+OO  .OOOOOE+00 

.OOOOOE+00  .30000E+01  .OOOOOE+OO 

.OOOOOE+OO  .60000E+01  .OOOOOE+00 

.OOOOOE+OO  .90000E+01  .OOOOOE+OO 

.OOOOOE+00  .12000E+02  .OOOOOE+00 

.15000E+01  .OOOOOE+00  .OOOOOE+00 

.15000E+01  .30000E+01  .OOOOOE+00 

.15000E+01  .60000E+01  .OOOOOE+OO 

.15000E+01  .90000E+01  .OOOOOE+00 

.15000E+01  .12000E+02  .OOOOOE+OO 

.30000E+01  .OOOOOE+00  .OOOOOE+00 

.30000E+01  .30000E+01  .OOOOOE+OO 

. 30000E+0 1  . 60000E+0 1  . OOOOOE+00 

.30000E+01  .90000E+01  .OOOOOE+00 

.30000E+01  .12000E+02  .OOOOOE+OO 

.450OOE+01  .OOOOOE+00  .OOOOOE+00 

. 45000E+0 1  . 30000E+0 1  . OOOOOE+OO 

.45000E+01  .60000E+01  .OOOOOE+00 

.45000E+01  .90000E+01  .OOOOOE+OO 

.45000E+01  .12000E+02  .OOOOOE+00 

.60000E+01  .OOOOOE+00  .OOOOOE+OO 

. 60000E+0 1  . 30000E+01  . OOOOOE+00 

.60000E+01  .60000E+01  .OOOOOE+OO 

.60000E+01  .90000E+01  .OOOOOE+00 

.60000E+01  .12000E+02  .OOOOOE+00 

.75000E+01  .OOOOOE+OO  .OOOOOE+00 

.75000E+01  .30000E+01  .OOOOOE+OO 

.75000E+01  .60000E+01  .OOOOOE+00 

.75000E+01  .90000E+01  .OOOOOE+00 

.75000E+01  .12000E+02  .OOOOOE+00 

.90000E+01  .OOOOOE+00  .OOOOOE+OO 

.90000E+01  .30000E+01  .OOOOOE+00 

.9O000E+01  .60000E+01  .OOOOOE+OO 

. 90000E+0 1  . 90000E+01  . OOOOOE+00 

.90000E+01  .12000E+02  .OOOOOE+00 

.10500E+02  .OOOOOE+00  .OOOOOE+OO 

.10500E+02  .30000E+01  .OOOOOE+00 

.10500E+02  .60000E+01  .OOOOOE+00 

.10500E+02  .90000E+01  .OOOOOE+OO 

.10500E+02  .12000E+02  .OOOOOE+00 

.12000E+02  .OOOOOE+OO  .OOOOOE+OO 

.12000E+02  .30000E+01  .OOOOOE+00 

.12000E+02  .60000E+01  .OOOOOE+OO 


EQUATION  NUMBER 

-1 

-3 

-4 

-5 

-6 

-7 

-8 

-9 

-10 

1 

2 

3 

4 

5 

6 

7 

a 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 

57 

58 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

(NEQ) 
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44 

2 

45 

2 

46 

2 

47 

2 

48 

2 

49 

2 

50 

2 

51 

2 

52 

2 

53 

2 

54 

2 

55 

2 

56 

2 

57 

2 

5B 

2 

59 

2 

60 

2 

61 

2 

62 

2 

63 

2 

64 

2 

65 

2 

66 

2 

67 

2 

68 

2 

69 

2 

70 

2 

71 

2 

72 

2 

73 

2 

74 

2 

75 

2 

76 

2 

77 

2 

78 

2 

79 

2 

80 

2 

81 

2 

82 

2 

83 

2 

84 

2 

85 

2 

86 

2 

87 

2 

88 

2 

89 

2 

90 

2 

91 

2 

92 

2 

93 

2 

94 

2 

.12000E+02  .90000E+01  . 00000E+0O 

.120006+02  .120002+02  .OOOOOE+00 

.13500E+02  .OOOOOE+00  .OOOOOE+00 

.13500E+02  .30000E+01  .OOOOOE+00 

.13500E+O2  .60000E+01  .0OO00E+00 

.13500E+02  .90000E+01  .OOOOOE+00 

.135006+02  .12000E+02  .OO000E+O0 

.15000E+02  .OOOOOE+00  .OOOOOE+00 

.15000E+02  .30000E+01  .OOOOOE+OO 

.15000E+02  .60000E+01  .OOOOOE+00 

.15000E+02  .90000E+01  .OOOOOE+00 

.15000E+02  .12000E+02  .OOOOOE+OO 

.16500E+02  .OOOOOE+00  .OOOOOE+00 

.16500E+02  .30000E+01  .OOOOOE+OO 

.16500E+02  .60000E+01  .OOOOOE+00 

.16500E+02  .90000E+01  .OOOOOE+00 

.16500E+02  .12000E+02  .OOOOOE+00 

.18000E+02  .OOOOOE+00  .OOOOOE+00 

.18000E+02  .30000E+01  .OOOOOE+OO 

•18000E+02  .60000E+01  .OOOOOE+00 

.18000E+02  .90000E+01  .OOOOOE+OO 

.18000E+02  .12000E+02  .OOOOOE+00 

.19500E+02  .OOOOOE+OO  .OOOOOE+OO 

.19500E+02  .30000E+01  .OOOOOE+00 

.19500E+02  .600006+01  .OOOOOE+OO 

.19500E+02  .900006+01  .OOOOOE+00 

.19500E+02  .12000E+02  .OOOOOE+OO 

.21000E+02  .OOOOOE+OO  .OOOOOE+OO 

.21000E+02  .30000E+01  .OOOOOE+00 

.21000E+02  .60000E+01  .OOOOOE+OO 

.21000E+02  .90000E+01  .OOOOOE+00 

.21000E+02  .12000E+02  .OOOOOE+00 

.22500E+02  .OOOOOE+OO  .OOOOOE+OO 

.22500E+02  .30000E+01  .OOOOOE+00 

.22500E+02  .60000E+01  .OOOOOE+OO 

.22500E+02  .90000E+01  .OOOOOE+00 

.22500E+02  .12000E+02  .OOOOOE+OO 

.24000E+02  .OOOOOE+00  .OOOOOE+00 

.24000E+02  .30000E+01  .OOOOOE+00 

.24000E+02  .600006+01  .OOOOOE+OO 

.24000E+02  .90000E+01  .OOOOOE+00 

.24000E+02  .12000E+02  .OOOOOE+00 

.25500E+02  .OOOOOE+OO  .OOOOOE+OO 

.25500E+02  .30000E+01  .OOOOOE+00 

.25500E+02  .60000E+01  .OOOOOE+OO 

.25500E+02  .900006+01  .OOOOOE+00 

.25500E+02  .12000E+02  .OOOOOE+00 

.27000E+02  .OOOOOE+OO  .OOOOOE+OO 

.27000E+02  .30000E+01  .OOOOOE+00 

.27000E+02  .60000E+01  .OOOOOE+OO 

.27000E+02  .90000E+01  .OOOOOE+00 


77 

78 

79 

30 

31 

82 

S3 

64 

65 

86 

67 

SB 

89 

90 

91 

92 

93 

94 

55 

96 

97 

98 

99 

100 

101 

102 

103 

104 

105 

106 

107 

108 

109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

118 


95 

2 

96 

2 

97 

2 

98 

2 

99 

2 

100 

2 

101 

2 

102 

2 

103 

2 

104 

2 

105 

2 

106 

2 

107 

2 

108 

2 

109 

2 

110 

2 

111 

2 

112 

2 

113 

2 

114 

2 

115 

2 

118 

2 

117 

0 

118 

2 

119 

0 

c 

120 

2 

121 

2 

122 

2 

123 

2 

124 

2 

125 

2 

126 

2 

127 

2 

128 

2 

129 

2 

130 

2 

131 

2 

132 

2 

133 

2 

134 

2 

135 

2 

136 

2 

137 

2 

138 

2 

139 

2 

140 

2 

141 

2 

142 

2 

143 

2 

144 

2 

145 

2 

.27000E+02  .12O0OE+02  .OOOOOE+OO 

.28500E+02  .0O00OE+0O  .OOOOOE+OO 

.28500E+02  .30000E+01  .OOOOOE+OO 

.28500E+02  .60000E+01  .OOOOOE+OO 

.28500E+02  .90000E+01  .OOOOOE+OO 

.28500E+02  .12000E+02  .OOOOOE+OO 

.30000E+02  .OOOOOE+OO  .OOOOCE+00 

.30000E+02  .30000E+01  .OOOOOE+OO 

.30000E+02  .60000E+01  .OOOOCE+00 

.30000E+02  .90000E+01  .OOOOOE+OO 

.30000E+02  .12000E+02  .OOOOOE+OO 

.31500E+02  .OOOOOE+OO  .OOOOOE+OO 

.31500E+02  .30000E+01  .OOOOOE+OO 

.31500E+02  .60000E+01  .OOOOOE+OO 

.31500E+02  .90000E+01  .OOOOOE+OO 

.31500E+02  .12000E+02  .OOOOOE+OO 

.33000E+02  .OOOOOE+OO  .OOOOOE+OO 

.33000E+02  .30000E+01  .OOOOOE+OO 

..33000E+02  .60000E+01  .OOOOOE+OO 

.33000E+02  .90000E+01  .OOOOOE+OO 

.33000E+02  .12000E+02  .OOOOOE+OO 

.34500E+02  .OOOOOE+OO  .OOOOOE+OO 

.34500E+02  .30000E+01  .00OOOE*OO 

.34500E+02  .60000E+01  .OOOOOE+OO 

.34500E+02  .90000E+01  .OOOOOE+OO 

.34500E+02  .12000E+02  .OOOOOE+OO 

.36000E+02  .OOOOOE+OO  .OOOOOE+OO 

.36000E+02  .30000E+01  .OOOOOE+OO 

.36000E+02  .60000E+01  .OOOOOE+OO 

.36000E+02  .90000E+01  .OOOOOE+OO 

.36000E+02  .12000E+02  .OOOOOE+OO 

.37500E+02  .OOOOOE+OO  .OOOOOE+OO 

.37500E+02  .30000E+01  .OOOOOE+OO 

.37500E+02  .60000E+01  .OOOOOE+OO 

.37500E+02  .90000E+01  .OOOOOE+OO 

.37500E+02  .12000E+02  .OOOOOE+OO 

.39000E+02  .OOOOOE+OO  .0(X>OOE+00 

.39000E+02  .30000E+01  .OOOOOE+OO 

.39000E+02  .60000E+01  .OOOOOE+OO 

.39000E+02  .90000E+01  .OOOOOE+OO 

.39000E+02  .12000E+02  .OOOOOE+OO 

.40500E+02  .OOOOOE+OO  .OOOOOE+OO 

.40500E+02  .30000E+01  .OOOOOE+OO 

.40500E+02  .60000E+01  .OOOOOE+OO 

.40500E+02  .90000E+01  .OOOOOE+OO 

.40500E+02  .12000E+02  .OOOOOE+OO 

.42000E+02  .OOOOOE+OO  .OOOOOE+OO 

.42000E+02  .30000E+01  .OOOOOE+OO 

•42000E+02  .60000E+01  .OOOOOE+OO 

.42000E+02  .90000E+01  .OOOOOE+OO 

.42000E+02  .12000E+02  .OOOOOE+OO 


179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

£01 

202 

203 

204 

£05 

206 

207 

208 

£09 

210 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

223 

229 

230 

£31 

£32 

233 

234 

235 

236 

237 

238 

239 

£40 

241 

242 

243 

244 

£45 

246 

247 

248 

£49 

250 

251 

252 

253 

254 

256 

257 

258 

259 

260 

261 

262 

£63 

264 

265 

266 

267 

268 

£69 

270 

£71 

272 

273 

274 

275 

276 

277 

278 

279 

280 

119 


146 

2 

. 435O0E+02 

. OOOOOE+OO 

. OOOOOE+OO 

281 

282 

147 

2 

.43500E+02 

.30000E+01 

. OOOOOE+OO 

263 

264 

148 

2 

.43500E+02 

. 60000E+01 

.  OOOOOE+OO 

285 

286 

149 

2 

.4350OE+02 

.90000E+01 

.OOOOOE+OO 

237 

288 

150 

2 

. 43500E+02 

. 12000E+02 

.OOOOOE+OO 

289 

290 

151 

2 

.45000E+02 

.0OO00E+00 

.OOOOOE+OO 

291 

292 

152 

2 

.45000S+02 

. 30000E+01 

•OOOOOE+OO 

293 

294 

153 

2 

.45000E+02 

.60000E+01 

.OOOOOE+OO 

255 

296 

154 

2 

.45000E+02 

. 90000E+01 

. OOOOOE+OO 

297 

298 

155 

2 

.45000E+02 

. 12000E+02 

.OOOOOE+OO 

259 

300 

156 

2 

.46500E+02 

.(XX»00E+00 

. OOOOOE+OO 

301 

302 

157 

2 

.46500E+02 

.30000E+01 

.OOOOOE+OO 

303 

304 

158 

2 

.46500E+02 

.60000E+01 

. OOOOOE+OO 

305 

306 

159 

2 

.46500E+02 

.90000E+01 

.OOOOOE+OO 

307 

308 

160 

2 

.46500E+02 

. 12000E+02 

.OOOOOE+OO 

309 

310 

161 

2 

.48000E+02 

.OOOOOE+OO 

.OOOOOE+OO 

311 

312 

162 

2 

.48000S+02 

.  30000E+01 

.OOOOOE+OO 

313 

314 

163 

2 

.48000E+02 

.60000E+01 

.OOOOOE+OO 

315 

316 

164 

2 

.48000E+02 

. 90000E+01 

.OOOOOE+OO 

317 

318 

165 

2 

.48000E+02 

. 12000E+02 

.OOOOOE+OO 

319 

320 

INPUT  OF  ELEMENT  PROPERTIES  (M=  0) 


NUMBER  OF  GROUPS  OF  PROPERTIES   (NGPE)=   1 
NUMBER  OF  PROPERTIES  PER  GROUP   (NPRE)=   3 


CARDS  OF  ELEMENT  PROPERTIES 

>)>))    1  .30000E+05  .25000E+00  .OOOOOE+OO 
»»>   0  .OOOOOE+OO  .OOOOOE+OO  .OOOOOE+OO 


INPUT  OF  ELEMENTS  («=  0) 


MAX.  NUMBER  OF  ELEMENTS 

MAX.  NUMBER  OF  NODES  PER  ELEMENT 

DEFAULT  ELEMENT  TYPE 

NUMBER  OF  GROUPS  OF  ELEMENTS 

INDEX  FOR  NON  SYMMETRIC  PROBLEM 

INDEX  FOR  IDENTICAL  ELEMENTS 


CNELT)= 

64 

(NNEL)= 

6 

(NTPE)= 

3 

(NGRE)  = 

X 

(NSYM)= 

0 

(NIDENT)= 

0 

&EMENT:   1  TYPE:  3  N.P.:  6  D.O.F. :  12  N.  PROP:  0  EL.  PROP:  3  GROUP:  1 

CONNECTIVITY  (NE)    1   6   11   12   13   7 
ELEMENT:   2  TYPE:  3  N.P. :  6  D.Q.F.:  12  N.  PROP:  0  EL.  PROP:  3  GROUP:  1 


CONNECTIVITY  (NE)   11   16 


23   17 


ELEMENT:   3  TYPE:  3  N.P.:  6  D.O.F. :  12  N.  PROP:  0  EL.  PROP:  3  GROUP:  1 

CCNNECTIVITY  (NE)   21   26   31  52   33  27 

ELEMENT:   4  TYPE:  3  M.P.:  6  D.O.F. :  12  N.  PROP:  0  EL.  PROP:  3  GROUP:  1 

CCNNECTIVITY  (NE)   31   36   41  42   43  37 


120 


ELEMENT :   5  TV-E 

3  v-.  -. : 

E  D.  0.  F. : 

12  N. 

PRCP: 

0 

EL. 

PROP: 

3  BROUP: 

CCNNECT:Vrv 

vr )    -.  j 

46  5; 

53 

47 

EL£M£N~:   6  TYPE 

3  N.P.: 

5  D.  C.  F. : 

12  N. 

PROP: 

0  EL. 

PROP: 

3  GROUP: 

C0NNECTIVI7Y 

NE)   51 

56   6i 

62 

63 

57 

E_£MEN~:    7  "V?E 

3  N.  ?. : 

S  D.  0.  F. : 

12  H. 

3RGP: 

0 

EL. 

PROP: 

3  GROUP: 

lC^ECtIV"Y 

NE)   61 

65   71 

72 

73 

67 

ELEMEN":    S  TYPE 

3  N.  P. : 

S  D.  0.  F. : 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)   71 

76   81 

82 

33 

77 

E_EME\":   9  TY^E 

3  N.  3. : 

6  D.  0,  F. : 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)   81 

66   91 

92 

93 

37 

ELEMENT:   10  "VPE 

3  H.  P. : 

6  D.  C,  F. : 

12  N. 

PROP: 

0 

CI 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)   91 

95  101 

102 

103 

97 

ELEMENT   11  TV=E 

3  N.  3. : 

5  D.  0.  F. : 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)  10 i 

106  111 

112 

113 

107 

ELEMENT:   IS  TYf»E 

3  N.  P. : 

6  D.  0.  F. : 

12  N. 

PROP: 

0  EL. 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)  111 

116  121 

122 

123 

117 

ELEMENT s   13  TYPE 

3  N.  P. : 

6  D.O.F.: 

12  N. 

PROP: 

0 

Cui 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)  121 

126  131 

132 

133 

1P7 

ELEMENT:   14  TYPE 

3  H.  P. : 

5  D.  0.  F. : 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)  131 

136  141 

142 

143 

137 

ELEMENT:   15  TVPE 

3  N.  3. : 

6  D.  0.  F. : 

12  N. 

PROP: 

0 

;Li 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)  141 

146  151 

152 

153 

147 

ELEMENT:   IS  TYPE 

3  H.  P. : 

5  D.Q.F. ; 

12  N. 

5R0P: 

0 

EL. 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)  151 

156  161 

162 

163 

157 

ELEMENT:   17  ^PE 

3  N.  P. : 

6  D.Q.F. : 

12  N. 

DROP: 

0 

EL. 

PROP: 

3  GROUP: 

CGNNEC'IVITv 

NE)    1 

7   13 

8 

£ 

ELEVEN":   18  ^JP£ 

3  N.  P, : 

5  D.  0.  F. : 

12  N. 

PRGP: 

0 

EL. 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)   11 

17   £3 

18 

13 

12 

ElEMEN":   19  TYPE 

3  N.  P. : 

6  D.  0.  F. : 

12  N. 

PROP: 

0 

EL. 

PRGP: 

3  GROUP: 

CONNECTIVITY 

NE)   2: 

27   33 

28 

23 

2£ 

ELEMENT:   20  TYPE 

3  K.  P. : 

6  3.O.F. : 

12  H, 

PROP: 

0  EL. 

DROP: 

3  GROUP: 

CONNECTIVITY 

NE)   31 

37   43 

38 

33 

32 

ELEMENT:   21  TY°E 

3  N.  3. : 

6  D.  G.  F. : 

12  N. 

PROP: 

0 

UWa 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)   41 

47   53 

46 

43 

42 

ELEME\T:   22  TYPE 

3  N.  P. : 

6  D.  0.  F. : 

12  N. 

PROP: 

0 

EL. 

DROP: 

3  GROUP: 

CONNECTIVITY 

NE)   51 

57   S3 

58 

53 

52 

ELEMENT:   23  TYPE 

3  N.  P. : 

5  D.  0.  F. : 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)   61 

57   73 

68 

63 

62 

ELEMENT:   24  TYPE 

3  N,  P. : 

5  D.  0.  F. : 

12  N. 

DROP: 

0 

EL. 

PRCP: 

3  GROL3: 

CONNECTIVITY 

NE)   71 

77   83 

78 

73 

7S 

ELEMENT:   25  "YPE 

3  N.  3. : 

fa  D.  G.  F. : 

12  N. 

PROP: 

U 

EL. 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)   91 

87   93 

38 

S3 

82 

ELEMENT:   2S  TYPE 

3  N.  a. : 

6  D.O.F.: 

12  H. 

PROP: 

Q 

r« 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)   91 

97  103 

98 

93 

9£ 

ELEMENT:   £7  TYPE 

3  N.P. : 

6  D.  0.  F. : 

12  N. 

PROP: 

0  EL. 

PRCP: 

3  GROUP: 

CONNECTIVITY 

NE)  101 

107  113 

103 

103 

102 

ELEMENT:   2B  TYPE 

3  N.  o. : 

6  D.O.F.: 

12  H. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

CONNECTIVITY 

NE)  111 

117  123 

118 

113 

11£ 

ELEMENT:   29  'YPE 

3  N.  3. : 

5  D.  0.  F. : 

12  N. 

PROP: 

0 

EL. 

PRGP: 

3  GROUP: 

CONNECTIVE 

NE)  121 

127  133 

128 

123 

ELEMENT:   20  "YPE 

3  N.  P. : 

6  B.  C.  F. : 

12  N. 

PRCP: 

0 

EL. 

PROP: 

3  GROUP: 

121 


:qwec~:vity  (NE)    :3i    127   143 


ELEMEAiT:      21  TYPE 

connectivity 

E_Z*E\T:   22  "Y^E 

CONNECTIVITY 
ELEMENT:   23  TY^E 

CONNECTIVITY 
ELE.¥EN~:   24  TYPE 

COWECTIVITY 
E_E¥E^T:   35  TYPE 

CONNECTIVITY 
ELEMENT:   36  TYPE 

CONNECTIVITY 
ELfflEKT:   37  TYPE 

connectivity 
element:  38  "ype 

connectivity 
element:  3s  type 

connectivity 
element:  40  type 

connectivity 
element:  41  type 

connectivity 
element:  42  type 

connectivity 

clEMEN I :   43  1 tP* 

CONNECTIVITY 
ELEMENT:   44  "YPE 

CONNECTIVITY 
ELEMENT:   45- TYPE 

CONNECTIVITY 
ELEMENT:   4b  TYPE 

CONNECTIVITY 
ELEMENT:   47  7/PE 

CONNECTIVITY 
ELEMENT:   4g  TYPE 

CONNECTIVITY 
'ELEMENT;   49  TYPE 

CONNECTIVITY 
ELEMENT:   50  TYPE 

CONNECTIVITY 
ELEMENT:   51  TY^E 

CONNECTIVITY 
ELEMENT:   52  TYPE 

CONNECTIVITY 
ELEMENT:   53  TYPE 

CONNECTIVITY 
ELE*!ENT:   5*  TYPE 

CONNECTIVITY 
ELEMENT   55  TYPE 


3  \.P. :  fa  D.O.F. : 

VE)  14 i  147  153 

3  N.  P. :  6  D.  D.  F. : 

NE)  151  157  163 

3  N.P.:  6  D.C.F. : 


NE) 


8   13 


3  N. P. :  5  D.O.F. : 
NE)   13   18   23 

3  N.P. :  6  D.O.F.: 
NE)   23  "  £8   33 

3  N.  P. :  6  2. 0.  F. : 
NE)   33   38   43 

3  N.  P. :  6  D.  D.  F. : 
NE)   43   48   53 

3  H.  P. :  6  D.  0.  F. : 
NE)   53  56   63 

3  N.  P. :  fa  D.  0.  F. : 
NE)   63   68   73 

3  N.P. :  5  D.O.F. : 
NE)   73   73   83 

3  N.  P. :  6  D.  Q.  F. : 
NE)   83   88   93 

3  N.  P. :  6  D.  0.  F. : 
NE)   93   38  103 

3  N.  P.  s  6  D.  0.  F. : 
NE)  103  108  113 

3  N.P. :  fa  D.O.F.: 
NE)  113  118  123 

3  tf.P. :  6  D.O.F. : 
NE)  123  128  133 

3  N.P. :  6  D.O.F. : 
NE)  133  138  143 

3  N.  P. :  6  D.  0.  F. : 
NE)  143  148  153 

3  N.  P. :  6  D.  0.  F. : 
NE)  153  158  163 

3  N.  P. :  6  D.  0.  F. : 
NE)   5   9   13 

3  N.P. :  6  D.Q.F. : 
NE)   15   19   23 

3  N.  P. :  6  D.  0.  F. : 
NE)   25  29   33 

3  N.  P. :  6  D.  0.  F. : 
NE)   35   39   43 

3  N.  P. :  6  D.  0.  F. : 
NE)   45  49   53 

3  N.  P. :  6  D.  0.  F. : 
NE)   55   59   63 

3  4?.:  6  D. 0. F. : 


CONNECTIVITY  (NE)   65   69   73 


.  -a 

133 

132 

12  N. 

PROP: 

0 

r; 

PROP: 

3  GROUP: 

[ 

148 

143 

142 

12  N. 

PROP: 

0 

Z] 

PROP: 

3  GROUP: 

1 

158 

153 

152 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

^ 

1 

9 

5 

4 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

* 

19 

15 

14 

12  N. 

PROP: 

u«a 

PROP: 

3  GROUP: 

i 

29 

OP 

UiJ 

24 

1  0    A, 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

4 

39 

35 

34 

12  N. 

PROP: 

0 

EL. 

PROP: 

2  GROUP: 

1 

49 

45 

44 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

4 

59 

55 

54 

12  N. 

PROP: 

0 

p* 

PROP: 

3  GROUP: 

t 

59 

65 

64 

12  N. 

PROP: 

0 

CI 

Lwi 

PROP: 

3  GROUP: 

1 
i 

79 

75 

74 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

4 
1 

89 

85 

84 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

1 

99 

95 

94 

12  \. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

1 

I 

109 

105 

104 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

1 

119 

115 

114 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

1 

129 

125 

124 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

i 

X 

139 

135 

134 

12  N. 

PROP: 

V 

CL. 

PROP: 

3  GROUP: 

1 

1 

149 

145 

144 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

1 

159 

155 

154 

12  N. 

PROP: 

0  EL. 

PROP: 

3  GROUP: 

1 

14 

15 

10 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

1 

i 

24 

25 

20 

12  N. 

PROP: 

0 

El. 

PROP: 

3  GROUP: 

1 

34 

35 

30 

12  N. 

PROP: 

0 

EL. 

PROP: 

3  GROUP: 

« 

1 

44 

45 

40 

12  N. 

PROP: 

0  EL. 

PROP: 

3  GROUP: 

1 

54 

55 

50 

12  N. 

PROP: 

0  EL. 

PR03: 

3  GROUP: 

1 

64 

65 

60 

12  N. 

PROP: 

0  P.. 

PROP: 

3  GROUP: 

i 

74 

75 

70 

122 


ELEMENT   56  TYC£:  3  N.P.: 

6  D.  0.  F. : 

12  N. 

PROP:  0  EL. 

PROP: 

3  GROUP: 

1 

CONNECTIVITY  (NE)   75 

79   33 

84 

85   80 

ELEVEN":   57  TYPE:  3  N.P. : 

6  D.  Q.  F.  : 

12  H. 

PROP:  0  EL. 

PROP: 

3  GROUP: 

l 

CONNECTIVITY  (NE)   85 

89   93 

94 

95   90 

ELEMENT:   58  TYPE:  3  N.P. : 

6  D.  0.  F. : 

12  N. 

PROP:  0  EL. 

PROP: 

3  GROUP: 

i 

CONNECTIVITY  !NE)   95 

99  103 

104 

105  100 

ELEMENT:   59  TYPE:  3  N.P. : 

fa  D.  D.  F. : 

12  N. 

PROP:  0  EL. 

PROP: 

3  GROUP: 

1 

i 

CONNECTIVITY  (NE)  105 

109  113 

114 

115  110 

ELEMENT:   60  TYPE:  3  N.P.: 

6  D.O.F. : 

12  N. 

PROP:  0  EL. 

PROP: 

3  6R0UP: 

1 

CONNECTIVITY  (NE)  115 

119  123 

124 

125  120 

ELEMENT   61  TYPE:  3  M.  P. : 

fa  D.O.F. : 

12  N. 

PROP:  0  EL. 

PROP: 

3  GROUP: 

1 

CONNECTIVITY  (NE)  125 

129  133 

134 

135  130 

ELEMENT:   62  TY^E:  3  N.P. : 

6  D.  0.  F. : 

12  N. 

PROP:  0  El. 

PROP: 

3  GROUP: 

1 

X 

CONNECTIVITY  (NE)  135 

139  143 

144 

145  140 

ELEMENT:   63  TYPE:  3  *.?,i 

6  D.  0.  F. : 

12  N. 

PROP:  0  EL. 

PROP: 

3  GROUP: 

1 

CONNECTIVITY  (NE)  145 

149  153 

154 

155  150 

ELEMENT:   64  TY-'E:  3  N.P.: 

6  D.  0.  F. : 

12  N. 

PROP:  0  EL. 

PROP: 

3  GROUP: 

1 

CONNECTIVITY  (NE)  155 

159  163 

164 

165  150 

CAN  BAND  rEISHT=   16. 1  MAXIMUM 

=   25 

LENGTH  OF  A  TRIANGLE  IN  KG 

(NKG)=    5152 

KJMBER  OF  INTEGRATION  POINTS 

(NPG)=     192 

INPUT  OP  C3NCENTRADED  LOADS  (M=  0) 


C5RD3  OF  NODAL  LOPDS 


)>>>)   1  .OOOCOE+00  -.40000E+02 

>  >  >  >  >  i  S3   0   0   0   0   0   0 

»>)}   0  .OOOOOE+00  .OOOOOE+00 


0   0   0   0   0   0   0 


ASSE'BLIMG  AND  LINEAR  SOLUTION  (M=  0) 


INDEX  FOR  RESIDUAL  COMPUTATION   (NRES)  =   1 
ENERGY   (ENERG)=  . 14252E+02 

ABSOLUTE  VALUE  OF  MINIMUM  PIVOT   =  . 11094E+03  EQUATION:  320 
ALGEBRAIC  VALUE=  . 11094E+03  EQUATION:  320 
DETERMINANT    =  . 16934E+09  ♦  10  **  1520 


PAX.  RESIDUAL  VALUE=  .86544E-11  EQUATION  278 


SOLUTION 
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^2DES 


Z 


DS68SES  OF  FREEDOM  (*  =  PRESCRIBED) 


1  . OOOOOE+OO 

E  .  OOOOOE-i-00 

3  . OOOOOE+OO 

4  .  OOOOOE+OO 

5  .  OOOOOE+OO 
£  .  15000E+01 
7  .15000E+01 
S  .  15000E+01 
9  .15000E+O1 

10  . 15000E+01 

::  .sooooE+Oi 

12  .300Q0S+01 

13  .30000E+01 

14  .30000E+01 

15  .30000E+01 
18  .45000E+01 

17  .45000E+01 

18  .450002+01 

19  .45000E+01 

20  .45000E+01 

21  .500002+01 
12  .SOOOOE+Ol 
£3  .SOOOOE+01 

24  .600C0E+01 

25  .60000E+01 
£S  .750COE+C1 
£7  .75000E+01 
23  .75000E+01 

29  .75000E+01 

30  .75000E+01 

31  .90000E+01 

22  .90000E+01 

33  .90000E+01 

34  .90000E+01 

35  .90000E+01 
3S  . 10500E+02 

37  .10500E+02 

38  . 10500E+02 

39  . 10500E+02 

40  . 10500E+02 

41  . 12000E+02 

42  . 120C0E+02 

43  .12000E+02 

44  . 12000E+02 

45  .12000E+02 
4o  . 13500E+02 


OOOOOE+OO 
30000E+01 
SOOOOE+01 
90000E+0 1 
12000E+02 
OOOOOE+OO 
30000E+01 
60000E+01 
90000E+01 
12000E+02 
OOOOOE+OO 
30000E+01 
60000E+01 
90000E+01 
12000E+02 
OOOOOE+OO 
30000E+01 
SOOOOE+01 
90000E+01 
12000E+C2 
OOOOOE+OO 
30000E+01 
SOOOOE+01 
90000E+01 
12000E+02 
OOOOOE+OO 
30000E+01 
60000E+01 
90000E+01 
12000E+02 
OOOOOE+OO 
20000E+01 
SOOOOE+Oi 
90000E+01 
12000E+02 
OOOOOE+OO 
20000E+01 
SOOOOE+OI 
90000E+01 
12000E+02 
OOOOOE+OO 
30000E+01 
SOOOOE+01 
90000E+01 
12000E+02 
OOOOOE+OO 


. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.  OOOOOE+OO 
.OOOOOE+OO 
.  OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 


. OOOOOE+OO 

. OOOOOE+OO 

.OOOOOE+OO 

. OOOOOE+OO 

.OOOOOE+OO 

-.  40761E-02 

-.  17307E-02 

. 13830E-15 

. 17307E-02 

,407612-02 

-.  79275E-02 

-.  35972E-02 

. 2S364E-1S 

. 35972E-02 

. 79275E-02 

-.11572E-01 

-.  54536E-02 

.43342E-16 

.54536E-02 

.11572E-01 

-.15119E-01 

-.724612-02 

.58517E-16 

.72461E-02 

.15U9E-01 

-.  13534E-01 

-.  89726E-02 

.72952E-1S 

.89726E-02 

. 18534E-01 

-.21S46E-01 

-.  10633E-01 

.90018E-16 

. 10633E-01 

.21848E-01 

-.  25022E-01 

-.  12229E-01 

. 10S32E-15 

. 12229E-01 

.25022E-01 

-.28093E-01 

-.  13761E-01 

. 12231E-15 

. 137S1E-01 

.28093E-01 

-.31019E-01 


.OOOOOE+OO  * 
.OOOOOE+OO  » 
.OOOOOE+OO  * 
.OOOOOE+OO  ♦ 
.OOOOOE+OO  * 
-.  18132E-02 
-.75535E-03 
-.564S6E-03 
-.75535E-03 
-. 18132E-02 
-.40486E-02 
-. 2S875E-02 
-.231732-02 
-. 26S75E-02 
-.4048SE-02 
-.69088E-02 
-.55596E-02 
-.51172E-02 
-.55595E-02 
-.690882-02 
-.  10632E-01 
-.93194E-02 
-.68742E-02 
-.93194E-02 
-.10632E-01 
-.  15220E-01 
-.  13951E-01 
-.  13515E-01 
-.  13951E-01 
-.  15220E-01 
-.20637E-01 
-.  19421E-01 
-.  19015E-01 
-.  19421E-01 
-.20637E-01 
-.26879E-01 
-.25704E-01 
-.25306E-01 
-.25704E-01 
-.2S879E-01 
-.33888E-01 
-.32766E-01 
-.32397E-01 
-.327662-01 
-.33888E-01 
-.416612-01 
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17 

. 13500E+02 

.300002+01 

.  000002+00 

-. 15230E-01 

-.405812-01 

-6 

, 13300E+02 

.SOOOOZ+Oi 

. OOOCOE+00 

.1418SE-15 

-.40216E-01 

43 

. 13500E+02 

.30000E+01 

. OOOOOE+00 

. 152302-01 

-.40581E-01 

so 

. 135002+02 

. 12C00E+02 

. 00000E+00 

.310192-01 

-.416612-01 

K\ 

.  15000E+02 

. 00OO0E+O0 

. 00O0OE+00 

-.  33842E-01 

-.50138E-01 

.  13000E+02 

.300002+01 

. OOOOOE+00 

-. 166372-01 

-.491112-01 

w-U 

. 15000E+02 

.S0000E+01 

. 000OOE+O0 

. 160982-15 

-.487742-01 

54 

■13000E+02 

.30000E+01 

. 000002+00 

.  16637E-01 

-.491112-01 

re 

. 15000E+Q2 

.  120002+02 

. 00OOOE+00 

.  338422-01 

-.501382-01 

36 

, 16500E+02 

.  000002+00 

. 0O000E+00 

-.365132-01 

-.593182-01 

57 

.  16500E+02 

.30000E+01 

•OOOOOE+00 

-.17981E-01 

-.56332E-01 

38 

.1 £5002+02 

.20000E+01 

. 0O0O0E+OO 

. 180392-15 

-.579992-01 

.  16500E+02 

.900002+01 

. 00000E+O0 

.  17981E-01 

-.583322-01 

£0 

.  I £5002+02 

. 12000E+02 

. OOOOOE+00 

, 365192-01 

-.593182-01 

61 

.  13000E+02 

. 0O0O0E+O0 

. 000OOE+O0 

-.  390922-01 

-.691392-01 

A? 

.laoooE+oa 

.300002+01 

. OOOOOE+00 

-. 192622-01 

-.682062-01 

r  — . 

.  15C00E+02 

.£00002+01 

.  00000E+00 

.202852-15 

-.679002-01 

£4 

,  1S000E+02 

.300002+01 

.  000002+00 

. 192622-01 

-.682062-01 

£3 

.  18000E+02 

. 12000E+02 

.0O00OE+O0 

.39092E-01 

-.691392-01 

£6 

.  19500E+02 

. 00OO0E+O0 

. 0O0O0E+00 

-.41519E-01 

-.795992-01 

£7 

.  1950CE+02 

.30000E+01 

.000002+00 

-.204812-01 

-.787072-01 

S3 

.  195002+02 

.600002+01 

.  0(10002+00 

.223482-15 

-.784062-01 

£9 

.  195002+02 

.300002+01 

.000002+00 

.204812-01 

-.78707E-01 

70 

. 19500E+02 

.  120002+02 

. OOOOOE+00 

.41519E-01 

-.795992-01 

7: 

.21C00E+02 

.000002+00 

.00000E+00 

-.  43842E-01 

-.90639E-01 

72 

,210002+02 

.300002+01 

.000002+00 

-.216372-01 

-.89800E-01 

73 

.21000E+02 

.£00002+01 

.000002+00 

.245162-15 

-.895262-01 

74 

.210002+02 

.90000E+01 

.  (100002+00 

.216372-01 

-.898002-01 

75 

,£i00OE+O£ 

. 120002+02 

.000002+00 

.438422-01 

-.90639E-01 

7S 

.225002+02 

. O000OE+0O 

.  000002+00 

-. 460192-01 

.-.  102262+00 

77 

.22500E+02 

.20000E+01 

.000002+00 

-.227312-01 

-. 101462+00 

78 

, 225002+02 

.SOO00E+01 

.  000002+00 

.259232-15 

-.10119E+00 

73 

. 225002+02 

.9000QE+01 

.000002+00 

.227312-01 

-. 10146E+00 

80 

.22500E+02 

. 120002+02 

.  000002+00 

. 460192-01 

-. 10225E+00 

31 

.2^000E+02 

.000002+00 

.000002+00 

-.480922-01 

-.11439E+00 

32 

. 240002+02 

.300002+01 

. 000C0E+00 

-.237622-01 

-.11364E+00 

S3 

.  24000E+02 

.60000E+01 

.00OOOE+O0 

.26824E-15 

-.11340E+00 

34 

, 240002+02 

.900002+01 

. 000002+00 

.237622-01 

-.11364E+00 

85 

. 240002+02 

.  12000E+02 

.000002+00 

.480922-01 

-.11439E+00 

B£ 

. 255002+02 

.00000E+00 

. 000002+00 

-.50019E-01 

-. 12704E+00 

37 

.255002+02 

.30000E+01 

. 000002+00 

-.24731E-01 

-. 12633E+0O 

33 

.255002+02 

.£00002+01 

. 000002+00 

.293222-15 

-. 12609E+00 

33 

.255002+02 

.30000E+01 

.000002+00 

.247312-01 

-. 126332+00 

30 

. 255002+02 

. 120002+02 

.OOOOOE+00 

.500192-01 

-. 127042+00 

31 

.270002+02 

.000002+00 

.OOOOOE+00 

-.518422-01 

-.  140142+00 

32 

. 27000E+02 

.300002+01 

. 000002+00 

-.256372-01 

-. 13949E+00 

33 

.27000E+02 

.60000E+01 

.OOOOOE+00 

.32138E-15 

-.  13928E+00 

34 

.270002+02 

.90000E+01 

. 000002+00 

.256372-01 

-. 13949E+00 

95 

. 270002+02 

.  12000E+02 

.OOOOOE+00 

.518422-01 

-.  14014E+00 

36 

.  285002+02 

. OOOOOE+00 

. 000002+00 

-.  535192-01 

-. 15370E+00 

97 

. 26500E+02 

.  30000E+01 

. 000OOE+O0 

-.264812-01 

-.  15308E+00 
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38 

.285O0E+02 

.60000E+O1 

. 0OOO0E+00 

.34012E-15 

-. 15288E+00 

j  - 

.2B50CE+02 

.30000E+01 

. 00OO0E+O0 

.26481E-01 

-. 15308E+0O 

4  ^A 

, 28500E+02 

. 1200OE+02 

. 000O0E+00 

.53513E-01 

-.  15370E+00 

101 

•3000CE+02 

. OOOOOE+00 

.O0OO0E+O0 

-. 55092E-01 

-. 16764E+0O 

102 

. 30000E+02 

.3CC00E+01 

. OOOOOE+00 

-.27262E-01 

-. 16708E+00 

103 

. 30000E+02 

.50000E+01 

.00O0OE+0O 

.35740E-15 

-. 16630E+00 

10* 

. 3OOOCE+02 

■90000E+01 

.OOOOOE+00 

.27262E-01 

-. 16708E+00 

105 

. 30000E+02 

. 12000E+02 

. 000O0E+00 

.55092E-01 

-. 16754E+00 

106 

.31500E+02 

. OOOOOE+00 

. 0O00OE+O0 

-.56518E-01 

-. 18198E+00 

107 

. 315C0E+02 

.30000E+01 

.OOOOOE+00 

-.27981E-01 

-. 18146E+00 

108 

.31500E+02 

■60000E+01 

. OOOOOE+00 

.38587E-15 

-. 18128E+00 

.31500E+02 

.90000E+01 

. 00000E+00 

.27981E-01 

-.  18146E+00 

110 

.315O0E+02 

. 12000E+02 

.  OOOOOE+00 

.56518E-01 

-. 18198E+00 

*  *  X 

. 33000E+02 

. O0O00E+O0 

. OOOOOE+00 

-.57841E-01 

-. 19664E+00 

:  12 

. 33000E+02 

.3OO00E+O1 

.  OOOOOE+00 

-. 26637E-01 

-. 19618E+00 

113 

. 33000E+02 

.60000E+01 

. OOOOOE+00 

.41094E-15 

-. 19603E+0O 

114 

. 33Q00E+02 

.9Q000E+01 

. OOOOOE+00 

.28637E-01 

-.  l%18E+00 

115 

. 33000E+02 

. 12000E+02 

. OOOOOE+00 

■57841E-01 

-. 13664E+0O 

116 

. 34500E+02 

.OOOOOE+00 

.  OOOOOE+00 

-.59017E-01 

-.21163E+00 

117 

. 34500E+02 

.30000E+01 

.0OO00E+00 

-.29232E-01 

-.21121E+0O 

118 

. 34500E+02 

.600O0E+01 

.OOOOOE+00 

.42791E-15 

-.21106E+00 

113 

. 34500E+O2 

.S0000E+01 

.OOOOOE+OO 

.29232E-01 

-.21121E+00 

120 

. 34500E+02 

. 12000E+02 

. OOOOOE+00 

.59017E-01 

-.21163E+00 

"ji 

. 3&000E+02 

. 00000E+00 

.OOOOOE+00 

-.60090E-01 

-.22689E+0O 

lu£ 

. 3&000E+02 

.30000E+01 

. 0O0O0E+0O 

-.297S4E-01 

-.22652E+00 

IS? 

. 3&000E+02 

.60000E+01 

.00O0OE+0O 

.44969E-15 

-.2264OE+0O 

124 

, 36000S+02 

.gooooE+oi 

. 000O0E+OO 

. 29764E-01 

-. 22652E+00 

125 

.  36000E+02 

. 12000E+02 

.00000E+00 

.6O09OE-01 

-.22689E+0O 

12& 

.  37500E+02 

.  OOOOOE+00 

. 0O0O0E+00 

-.61013E-01 

-.  24242E+00 

127 

.37500E+02 

.30000E+01 

.OOOOOE+00 

-.30234E-01 

-. 24208E+00 

•28 

.  37500E+02 

.60000E+01 

.  OOOOOE+00 

.46387E-15 

-.24197E+00 

129 

. 37500E+02 

.30000E+01 

.000OOE+00 

.30234E-01 

-.24208E+0O 

130 

, 375O0E+O2 

. 12000E+02 

. OOOOOE+00 

•61013E-01 

-. 24242E+00 

1  ?1 

. 39000E+02 

.OOOOOE+00 

.0O000E+O0 

-.61831E-01 

-.25815E+00 

132 

. 39000E+02 

. 39000E+02 

. 30000E+01 
.60000E+01 

. 0000OE+O0 

.OOOOOE+00 

-. 30645E-01 
.4720 IE- 15 

-. 25786E+00 

133 

-.2b///fc+0O 

124 

.  3900OE+02 

.30000E+01 

. 0O0O0E+0O 

•30645E-01 

-.  25786E+(X) 

135 

. 3SO00E+02 

. 12000E+02 

.00000E+OO 

.6183iE-0i 

-.25815E+0O 

136 

.  40500E+02 

. O0O0OE+0O 

. 0OOO0E+O0 

-.62492E-01 

-.27408E+00 

137 

.  40500E+02 

.30000E+01 

.OOOOOE+00 

-.30997E-O1 

-.27383E+0O 

138 

.4O5O0E+02 

.60000E+01 

.00000E+00 

.48161E-15 

-. 27373E+00 

133 

. 40500E+02 

.  90000E+01 

. 00O0OE+O0 

.30997E-01 

-.27383E+0O 

140 

. 4O500E+02 

. 12000E+02 

. 00000E+00 

.62492E-01 

-. 27408E+00 

1  A-t 

.  42000E+02 

.000OOE+00 

.OOOOOE+00 

-.63044E-O1 

-.29016E+0O 

142 

. 42000E+02 

.30000E+01 

. OO0O0E+O0 

-.31295E-01 

-.28994E+00 

143 

.42000E+02 

.60000E+01 

. 00000E+00 

.48999E-15 

-.28986E+00 

144 

. 42000E+02 

.90000E+01 

.OOOOOE+00 

.31295E-01 

-.28994E+00 

145 

.42000E+02 

. 12000E+02 

.OOOOOE+00 

.63044E-01 

-.29016E+00 

:4& 

. 43500E+02 

. 000O0E+OO 

. 00OO0E+OO 

-.63411E-01 

-. 30634E+00 

147 

.43500E+02 

.30000E+01 

.OOOOOE+00 

-.31544E-01 

-.30618E+00 

148 

.43500E+02 

.60000E+01 

. OOOOOE+00 

.54901E-15 

-.30610E+00 

126 


•LQ 


154 

.Jj 

156 
157 
158 
159 
160 
181 
162 
:63 
ISA 
165 


. 43500E+02 
. 435001+02 
. 45000E+02 
. 45000E+02 
. 45000E+02 
. 4500QE+02 
. 45000E+02 
. 46500E+02 
.46500E+02 
. 4&500E+02 
. 46500E+02 
. 46500E+02 
■48000E+02 
. 48000Z+02 
.48000E+02 
. 48Q00E+02 
. 48000E+02 


.9000GE+01 
, 12C0CE+02 
.OOOOOE+00 
.30000E+01 
.60000E+01 
.90000E+01 
. 12000E+02 
. 00C00E+00 
.3000OE+O1 
.50000E+01 
.90000E+01 
. 12000E+02 
. OOOOOE+00 
.30000E+01 
. 60000E+G1 
.90000E+01 
. 12000E+02 


. 00OOOE+O0 
. OOOOOE+00 
. 00000E+00 
. OOOOOE+00 
.OOOOOE+00 
. OOOOOE+OO 
. OOOOOE+00 
. 000O0E+O0 
. 00000E+00 
. 00000E+00 
. OOOOOE+00 
. 000O0E+00 
. OOOOOE+00 
.  OOOOOE+00 
. 00000E+00 
. OOOOOE+00 
. 00000E+00 


.31544E-01 

.&3411E-01 

-.63649E-01 

-.31750E-01 

.&1189E-15 

.31750E-01 

.63649E-01 

-.63813E-01 

-.31878E-01 

.65434E-15 

.31878E-01 

.63813E-01 

-.&3868E-01 

-.31823E-01 

.66939E-15 

.31823E-01 

.6386SE-01 


-.30618E+00 
-. 3O634E+00 
-.32257E+00 

-. 32249E+00 
-.32244E+00 
-.32249E+00 
-.  32257E+00 
-. 33873E+00 
-.33884E+00 
-.33912E+00 
-.33884E+00 
-.33873E+00 
-.35477E+0O 
-.35507E+00 
-.  35630E+00 
-.35507E+00 
-.35477E+00 


CONTRIVES  DfiNS  L  ELBBTT 
P.  5.      X        Y 


EPSX 


EPSY 


BflMXY 


SISX 
SIG1 


5IGY 
SIG2 


TflUXY 
TflUMflX 


TE~fi 


1  .15000E+01  .00000E+00  -.26425E-02  .51777E-03  -.44555E-03  -.80418E+02  -.45714E+01  -.53467E+01    -86.0 

-.419631+01  -.80793E+02  .38299E+02 

2  .30000E+01  .30000E+01  -.11694E-02  .26854E-03  -. 10756E-03  -.35U4E+02  -. 12208E+00  -. 12907E+O1    -87.9 

-.74532E-01  -.35151E+02  .17543E+02 

3  .15000E+01  .30000E+01  -.13192E-02  . 18747E-03  -.48780E-03  -.40714E+02  -.45543E+01  -.58536E+01    -81.0 

-.36303E+01  -.41638E+02  .19004E+O2 


C0N7RINTES  DftNS  L  ELEMENT 
P.6.     X        Y 


EPSX 


;psy 


GflMXY 


SISX 

St  n* 
181 


SISY 
SIG2 


TflijXY 
TflUMflX 


Tc  m 


i  .45000E+01  .OOOOOE+OO  -.23971E-02  .59440E-03  -.50558E-04  -.71953E+02  -.15626E+00  -.60669E+00    -69.5 

-.  151 13E+00  -. 71958E+02  . 35903E+02 

2  .60000E+01  .30000E+01  -. 11622E-02  .29304E-03  -.27446E-03  -.34847E+02  .79468E-01  -.32935E+01    -64. 7 

.38732E+00  -.35155E+02  .17771E+02 

3  .45000E+01  .30000E+01  -. 12279E-02  .30507E-03  -.28349E-03  -.36851E+02  -.60618E-01  -.34019E+01    -64.8 

.25130E+(iO  -.37163E+02  .  18707E+02 


CONTAINTES  DANS  L  ELEMENT 
P.G.      X        Y 


EPSX 


IPSY 


GflMXY 


SIGX 
SIG1 


SISY 
SIG2 


TflUXY 
TflUMAX 


iE7fi 


1  .75000E+01  .OOOOOE+OO  -.22432E-02  .55844E-03  -.50915E-04  -.67314E+02  -.75302E-01  -.61096E+00    -89.5 

-.69751E-01  -.67313E+02  .33625E+02 

2  .90000E+01  .30000E+01  -. 10735E-02  .27037E-03  -.28154E-03  -.32188E+02  .64231E-01  -.33785E+01    -84.1 

. 41434E+00  -. 32538E+02  . 1 6476E+02 
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.75000E+01  .30000E+01  -. 11400E-02  . 28610E-03  -.2BC56E-03  -.3A177E+02  . 98918E-01  -.33667E+01    -64.4 

.42S48E+00  -.34504E+02  . 17465E+02 


CON'flINTES  DflNS  L  ELEMENT    4 
P.B.      X        Y       EPSX      EPSY     Gfif^XY      SISX      SISY     TflUXY      TETft 

SIG1      SIG2     TflUMflX 

1  .10500E+02  .OOOOOE+00  -.20817E-02  .51677E-03  -.57160E-04  -.62479E+0S  -.U664E+00  -.68592E+00    -69.4 

-. 1091 OE+00  -. 62486E+02  .311 S9E+02 

2  .12000E+02  .30000E+01  -.98726E-03  .24843E-03  -.28138E-C3  -.29605E+02  .51747E-01  -.33766E+01    -63.6 

.43134E+00  -.29984E+02  . 15206E+02 

3  .10500E+02  .30000E+01  -.10555E-0£  . 2562 1E-03  -.2821 4E-03  -.31 647E+02  .74499E-01  -.33977E+01    -84.0 

. 43434E+00  -. 32006E+02  . 16220E+02 


CONTPINTES  DflNS  L  ELECT    5 

P.G.      X        Y       EPSX      EPSY     6PMXY      SI6X  SIGY     TflUXY      TETfl 

SIG1  SIG2     TflUMflX 

1  .13500E+02  .OOOOOE+00  -.19163E-02  .47498E-03  -.59055E-04  -.57522E+02  -. 13088E+O0  -.70856E+00    -69.3 

-. 12213E+00  -.57530E+02  .26704E+02 

2  .15000E+02  .30000E+01  -.90316E-03  .22730E-03  -.28119E-03  -.27083E+02  .48224E-01  -.33743E+01    -63.0 

.46159E+00  -.27496E+02  . 13979E+02 

3  .13500E+02  .30000E+01  -.97190E-03  .24497E-03  -.28399E-03  -.29141E+02  .63777E-01  -.340782+01    -83.4 

.456162+00  -.29533E+02  .14995E+02 


CONTfllNTES  DflNS  L  ELEMENT    6 
P.G.     X        Y      EPSX      EPSY     GftMXY      SIGX      SISY     TflUXY      TETfl 

SIS1      SIG2     TflUMflX 

1  .16500E+02  .OOOOOE+00  -.17499E-02  .43328E-03  -.59506E-04  -.52531 E+02  -. 13437E+00  -.71 407E+00    -69.2 

-.12464E+00  -.52541E+02  .26208E+02 

2  .18000E+02  .30000E+01  -.81965E-03  .20640E-03  -.28114E-03  -.24578E+02  .474072-01  -.33736E+01    -82.3 

. 50 1 23E+00  -. 250321+02  . 1 2766E+02 

3  .16500E+02  .30000E+01  -.88851E-03  .22403E-03  -.28419E-03  -.26640E+02  .61003E-01  -.34103E+01    -62.8 

. 48969E+00  -.  27069E+02  . 1 3779E+02 


CGNTfllNTES  DflNS  L  ELEMENT    7 
P.G.     X        Y       EPSX      EPSY     GflMXY      SIGX      SIGY     TflUXY      TETfl 

SIG1      SIG2     TflUMflX 

1  .19500E+02  .OOOOOE+00  -.15B33E-02  .39161E-03  -.59604E-04  -.47533E+02  -. 1351 4E+00  -.715252*00    -89.1 

-. 12435E+00  -. 47544E+02  . 23710E+02 

2  .21000E+02  .3000OE+01  -.73628E-03  . 18555E-03  -.28112E-03  -.22077E+02  .47236E-01  -.33735E+01    -81.5 

. 55019E+00  -.  22580E+02  . U565E+02 

3  . 1 9500E+02  . 30000E+0 1  -. 805 1 6E-03  . 203 1 8E-03  -. 28424E-03  -. 24 1 40E+02  . 60378E-0 1  -. 34 1 09E+0 1    -82. 1 

. 53 1 93E+00  -. 246 1 1 E+02  . 1 2572E+02 
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CONTftlNTES  DflNS  L  ELEMENT    8 
P.G.     X        Y      EPSX      EPSY     GflMXY      31GX      SIGY     TfiUXY      TE'A 

SIG1      SIG£     TflUMflX 

1  .£E500E+0£  . O0000£+O0  -. 14167E-02  .34994E-03  -.5962BE-04  -.42534E+02  -.13527E+00  -.71554E+00    -S9.0 

-.  12320E+0Q  -. 42546E+0£  . £121 1E+02 
£  .24000E+Q2  .30000E+01  -.65234E-03  .  16471 E-03  -.£811  2E-03  -.  19577E+02  .47227E-01  -.33734E+01    -80.5 

•61095E+00  -,£0140E+0£  .10376E+02 
3  .22500E+02  .30000E+01  -.72183E-03  . 1823AE-03  -.28425E-03  -.21640E+02  .60246E-01  -.34110E+01    -61.3 

.58378E+00  -.££163E+0£  . 11374E+02  " 


CQUfTfllNTES  DANS  L  ELEMENT    9 
P.G.      X        Y       EPSX      EPSY     GflMXY      SIGX      SIGY     TfiUXY      Trfi 

SIG1      SIG£     TflUMflX 

1  .£5500E+0£  . OOOOOE+00  -.  12500E-02  .30827E-03  -.59647E-04  -.37534E+0£  -. 13515E+00  -.71576E+00    -66.3 

-. l£146E+00  -. 37547E+02  . 18713E+02 

2  .27000E+02  .30000E+01  -.56961 E-03  . 14388E-03  -.2811£E-03  -.  17077E+02  .47355E-01  -.33735E+01    -79. £ 

. 68797E+00  -. 17717E+02  . 9202SE+01 

3  .25500E+02  .30000E+01  -.63850E-03  . 16151E-03  -.£84£4E-03  -. 19140E+02  .60238E-01  -.34109E+01    -80.2 

.6481BE+00  -.197£8E+0£  .10188E+02 


CONTAINTES  DflNS  L  ELEMENT   10 
P.G.     X        Y      EPSX      EPSY     GflMXY      SIGX      SIGY     TfiUXY      TETfi 

SIG1      SIG2     TflUMflX 

1  .2B500E+02  .OOOOOE+00  -.10833E-02  .26663E-03  -.59718E-04  -.32533E+02 ■ -. 13443E+00  -.7i662E+00    -88.7 

-.11858E+00  -.32549E+02  .162i5E+02 

2  .30000E+02  .30000E+01  -.48630E-03  .  12306E-03  -. 2S113E-03  -. 14577E+0£  .480HE-01  -.33735E+01    -77.6 

. 76867E+00  -. 1 53 1 8E+02  . 8053 1 E+0 1 

3  .28500E+02  .30000E+01  -.55519E-03  . 14068E-03  -.28422E-03  -. 16641E+02  .60316E-01  -.34106E+01    -78.9 

.72996E+00  -. 17310E+02  .90201E+01 


CONTAINTES  DflNS  L  ELEMENT   11 
P.G.      X        Y       EPSX      EPSY     GflMXY      SIGX      SIGY     TfiUXY      TETfi 

SIS1      SIG2     TflUMflX 

1  .31500E+0£  .OOOOOE+OO  -.91654E-03  .22504E-03  -.60055E-04  -.27529E+02  -. 13093E+00  -.72066E+00    -66.5 

-. 11 199E+00  -. 27548E+02  . 13718E+02 

2  . 33000E+02  . 30000E+0 1  -. 40306E-03  . 1 0236E-03  -. £8 1 1 6E-03  -. 1 2079E+02  .511 08E-0 1  -. 33739E+0 1    -75. 5 

. 92639E+0G  -. l£954E+0£  . 69403E+01 

3  .31500E+02  .30000E+01  -.47197E-03  .  11989E-03  -.28409E-03  -. 14144E+02  .50720E-01  -.34090E+01    -77.2 

.83650E+00  -.14920E+0£  .78780E+01 


CONTAINTES  DflNS  L  ELEMENT   12 
P.G.      X        Y       EPSX      EPSY     GflMXY      SIGX      SIGY     TfiUXY      TETR 
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SIBi      SIG£     TflyMAX 

1  .34500E+02  .OOOOOE+OO  -.74941E-03  .1B376E-03  -.61633E-04  -.22511E+02  -.11486E+00  -.7396QE+00 

-. 90463E-01  -.22535E+02  .11222E+02 

2  .36000E+02  .30000E+01  -.32015E-03  .82072E-04  -.28130E-03  -.9588AE+01  .65076E-01  -.337566+01 

.11284E+01  -, 10652E+02  .58900E+01 

3  .34500E+02  .30000E+01  -.38916E-03  .99246E-04  -.28348E-03  -.11659E+02  .626036-01  -.3401SE+01    -74.9 

.97830E+00  -. 12575E+02  .57765E+0! 


CONTfllNTES  DANS  L  ELEMENT   13 
P.G.     X        Y      EPSX      EPSY     SflMXY      SISX      BIBY     TflUXY 

SIG1      SIS2     TfllJMflX 

1  .37500E+02  .OOOOOE+OO  -.58057E-03  . 14368E-03  -.68621E-04  -. 17429E+02  -.46786E-01  -.62345E+00 

-. 78630E-02  -. 17468E+02  . B7239E+01 

2  .39000E+02  .30000E+01  -.23872E-03  .63479E-04  -.281S9E-03  -.71313E+01  . 12156E+00  -.338271+01 

.14543E+01  -.S4640E+01  .49592E+01 

3  .37500E+02  .30000E+O1  -.30820E-03  .79265E-04  -.28089E-03  -.92283E+01  .70860E-01  -.33706E+01 

.11641E+01  -.10322E+02  .57428E+01 


CONTfllNTES  DANS  L  ELEMENT   14 
P.G.     X        Y       EPSX      EPSY     SflMXY      SIGX      SIBY     TflUXY      TETh 

SIG1      SIG2     TflUMfiX 

1  .40500E+02  .OOOOOE+OO  -.40429E-03  . 10677E-03  -.95552E-04  -. 12083E+02  . 18232E+O0  -. 11466E+01    -84.7 

. 28859E+00  -. 121 90E+02  . 6239 1 E+O 1 

2  .42000E+02  .30000E+01  -. 16265E-03  .49449E-04  -.28351E-03  -.48092E+01  .28117E+00  -.34033E+01    -63.4 

.198566+01  -.6513BE+01  .42498E+01 

3  .40500E+02  .30000E+01  -.23462E-03  .6M30E-04  -.27178E-03  -.70132E+01  .10162E+00  -.32614E+01    -68.7 

•13704E+01  -.828196+01  .48261 E+O 1 


CONTRINTES  DANS  L  ELEMENT   15 

P.G.      X        Y       EPSX      EPSY     SflMXY      SIGX  SIGY     TfiUXY      TETfl 

SIG1  SIG2     TflUWfiX 

1  .43500E+02  .OOOOOE+OO  -.20152E-03  .60935E-04  -. 15722E-03  -.59610E+01  .33779E+00  -. 18866E+01    -74.5 

.85964E+00  -.64829E+01  .36713E+01 

2  .45000E+02  .30000E+01  -.94911E-04  .21937E-04  -.28073E-03  -.2B617E+01  -.57312E-01  -.33688E+01    -56.3 

.21894E+01  -.51084E+01  .36489E+01 

3  .43500E+02  .30000E+01  -. 18016E-03  .49195E-04  -.26H2E-03 -.53717E+01  . 13292E+00  -.31334E+01    -65.6 

.15512E+01  -.67899E+01  .41705E+01 


CONTfllNTES  DANS  L  ELEMENT   16 
P.G.      X        Y      EPSX      EPSY     SflMXY      SISX      SIGY     TflUXY 

SIG1      SIG2     TflUMflX 

1  .46500E+02  .OOOOOE+OO  -.731 12E-04  . 11770E-03  -.50210E-O4  -. 13979E+01  .31816E+01  -.60253E+00 
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.32596E+01  -. 14759E+01  .23677S+G1 

2  .48000E+02  .3G000E+01  . 731 12E-04  -.25479E-Q3  -.13257E-03  .30I26E+00  -.756fi4E+0i  -. 15908E+01    -11.0 

.6106BE+00  -.78778E+01  . A24A2E+01 

3  .4650QE+02  .30000E+01  .22904E-17  -. 19011E-03  -.25348E-03  -. 15209E+01  -.60834E+OI  -.30417E+01    -26.6 

.13145E-12  -.76043E+O1  .38021E+01 


CONTfllNTES  DANS  L  ELEMENT   17 
P.G.      X        Y       EP3X      EPSY     GflMXY      BISX      3I6Y     TftUXY      TE^A 

SIG1      SIG2     TflUMflX 

1  .15000E+01  .30000E+01  -.11538E-02  .63565E-04  -.32266E-03  -.36414E+02  -.71965E+01  -.38719E+01    -82.6 

-.66921E+01  -.3691SE+02  .15113E+02 

2  .15000E+01  .50000E+01  .94548E-17  .63565E-04  -. 19553E-03  .50852E+00  .20341E+01  -.23464E+01    -54.0 

.373S6E+01  -. 11959E+01  .24672E+01 

3  .OOOOOE+00  .30000E+01  -. 11538E-02  .OOOOOE+00  -.10756E-03  -.36922E+02  -.92306E+01  -.  12907E+01    -87.3 

-,9i706E+0i  -.36982E+02  .13906E+02 


CONTfllNTES  DANS  L  ELEMENT   18 
P.G.     X        Y      EPSX      EPSY     BfiMXY      SIGX      SIGY     TftUXY      TETfl 

S1G1      SIG2     TflUMflX 

1  .45000E+01  .30000E+01  -. 12376E-02  .31262E-03  -.29373E-03  -.37102E+02  . 10321E+00  -.35248E+01    -84.6 

.  43421E+00  -.  37433E+02  .  18934E+02 

2  .45000E+01  .60000E+01  .10051E-16  -.17682E-04  -.48997E-03  -.14146E+Q0  -.565B4E+00  -.58796E+01    -44.0 

.55298E+01  -.62371E+01  .53834E+01 

3  .30000E+01  .30000E+01  -. 12376E-02  .28854E-03  -.27446E-03  -.37294E+02  -.66731E+00  -.32935E+01    -84.9 

-.  37352E+CK)  -.  37588E+02  .18607E+02 


CONTfllNTES  DANS  L  ELEMENT   19 
P.G.      X        Y       EPSX      EPSY     GflMXY      SIGX      SIGY     TftUXY      TETfl 

SIG1      SIG2     TflUMflX 

1  .75000E+01  .30000E+01  -.11511E-02  .28975E-03  -.27833E-03  -.34517E+02  .63288E-01  -.33400E+01    -64.5 

. 38293E+00  -. 34837E+02  . 17610E+02 

2  .75000E+01  .60000E+01  . 10500E-16  .43041E-06  -.49378E-03  .34433E-02  . 13773E-01  -.59253E+01    -45.0 

.59339E+01  -.59167E+01  .59253E+01 

3  .60000E+01  .300006+01  -.11511E-02  .29304E-03  -.281 54E-03  -.34491 E+02  . 16850E+00  -. 337B5E+01    -84.5 

. 49476E+00  -. 34817E+02  . 17656E+02 


CONTfllNTES  DflNS  L  ELEMENT   20 

P.G.     X        Y      EPSX      EPSY     GflMXY      SIGX  SIGY     TftUXY      TETfl 

SIG1  SIG2     TflUMflX 

1  .10500E+O2  .30000E+01  -. 10640E-02  .26786E-03  -.28220E-03  -.31906E+02  .59492E-01  -.33864E+01    -84.0 

. 41431E+00  -. 32260E+02  . 16337E+02 

2  .10500E+02  .60000E+01  . 10764E-16  -.24726E-05  -.48140E-03  -. 19781E-01  -.79124E-01  -.57768E+01    -44.9 

.57274E+01  -.58263E+01  .57769E+01 
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3  .90000E+0!  .30000E+01  -. 10S40E-02  .27037E-03  -.2813BE-03  -.31886E+02  . 13977E+00  -.33766E+01    -84.0 

.49191E+00  -.32238E+02  .16365E+02 


CONTfllNTES  DANS  L  ElEKENT   21 
P.G.      X        Y       EPSX      EPSY     GAMXY      SIGX      SIBY     TflUXY 

SIG1      SIG2     TflUWftX 

1  .13500E+02  .30000E+01  -.97960E-03  .24677E-03  -.2B375E-03  -.29373E+02  . 59921 E-0 1  -.34050E+01 

.44869E+00  -.29752E+02  . 15105E+02 

2  .13500E+OS  .60000E+01  . 12890E-18  -.37887E-05  -.47749E-03  -.30310E-01  -. 12124E+00  -.57299E+01 

.56543E+01  -.58059E+01  .57301E+01 

3  .12000E+02  .30000E+01  -.97960E-03  .24843E-03  -.28119E-03  -.29360E+02  .  11296E+00 -.33743E+01    -83.6 

.49436E+00  -.29741E-K>2  .15118E+02 


CONTfllNTES  DANS  L  ELEMENT   22 
P.  6.      X        V       EPSX      EPSY     GAMY      SIGX      SIGY     TflUXY 

SIG1      SIG2     TAUMAX 

1  .16500E+02  .30000E+01  -.39502E-03  .22588E-03  -.28414E-03  -.26866E+02  .60136E-01  -.34097E+01 

.48520E+00  -. 27291E+02  . 13888E+02 

2  .16500E+02  .60000E+01  . 13957E-16  -.41315E-05  -.47658E-03  -.33052E-01  -. 13221E+00  -.57167E+01 

.56363E+01  -.58015E+01  .57189E+01 

3  .15000E+02  .30000E+01  -.89602E-03  .22730E-03  -.28114E-03  -.26854E+02  .10537E+00  -.33736E+01    -83.0 

. 52 1 1 2E+00  -. 27270E+02  . 1 3696E+02 


CONTfllNTES  DANS  L  ELEMENT   23 
P.G.      X        Y       EPSX      EPSY  ■    SflWXY      SIGX      SIGY     TflUXY      TETfl 

SIG1      SIG2     TAUMflX 

1  .19500E+02  .30000E+01  -.81263E-03  .20504E-03  -.28423E-03  -.24364E+02  .60195E-01  -.34107E+01    -82.2 

. 52755E+00  -. 24831E+02  . 12679E+02 

2  .19500E+02  .60000E+01  . 14105E-16  -.42089E-05  -.47635E-03  -.33671E-01  -. 13468E+00  -.57162E+01    -44.7 

.56323E+01  -.58006E+01  .57164E+01 

3  .18000E+02  .30000E+01  -.81263E-03  .20640E-03  -.28U2E-03  -.24353E+02  .10360E+00  -.33735E+01    -82.3 

. 58039E+00  -. 24810E+02  . 12685E+02 


CONTfllNTES  DANS  L  ELEMENT   24 
P.G.     X        Y      EPSX      EPSY     GfiMXY      SIGX      SIGY     TflUXY      TETfl 

SIG1      SIG2     TflUMAX 

1  .22500E+02  .3O0O0E+01  -.72929E-03  . 18420E-03  -.28424E-03  -.21864E+02  .6O219E-01  -.34109E+01    -81.4 

. 57884E+00  -. 22382E+02  . 1 1 460E+02 

2  .22500E+02  .60000E+01  .76941E-17  -.42250E-05  -.47631E-03  -.33800E-01  -. 1352OE+00  -.57157E+01    -44.7 

.56314E+01  -.580O4E-KU  .57159E+01 

3  .21000E+02  .30000E+01  -.72929E-03  . 18555E-03  -.28112E-03  -.21853E+02  . 10322E+00  -.33734E+01    -81.5 

. 60984E+00  -. 22359E+02  . 1 1485E+02 
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CONTfllNTES  DftNS  L  ELEMENT        25 
P. 3.  X  Y  EPSX  EPSY  GflMXY  SISX  SIGY  TflUXY  TETfl 

SIG1      SIG2     TftUWflX 

i  .25500E+O2  .30000E+01  -.64595E-03  . 16337E-03  -.28425E-03  -. 19364E+02  .60277E-01  -.34109E+01    -80.3 

. 64 1 85E+00  -. 1 9945E+02  . 1 0293E+02 

2  .25500E+02  .60000E+01  . 1771 3E- 16  -.42267E-05  -.47629E-03  -.3381 4E-01  -. 13525E+00  -.571 55E+01    -44.7 

.56312E+Q1  -.58002E+01  .57157E+01 

3  .24000E+02  .30000E+01  -.64595E-03  .16471E-03  -.28112E-03  -. 19353E+02  .10316E+00  -.33735E+01    -60.4 

. 67 1 4SE+00  -. 1 992 1 E+02  . 1 0296E+02 


CONTfllNTES  DANS  L  ELEMENT   26 
P.S.      X        Y       EPSX      EPSY     GflMXY      SIGX      SIGY     TflUXY      TETft 

SIS1      SIG2     TfiUMftX 

1  .28500E+02  .30000E+01  -.56263E-03  . 14255E-03  -.28423E-03  -. 16864E+02  .60545E-01  -.34108E+01    -79.0 

. 72206E+00  -. 17525E+02  . 91237E+01 

2  .28500E+02  .60000E+01  . 12006E-16  -.42187E-05  -.47625E-03  -.33749E-01  -. 13500E+00  -.57150E+01    -44.7 

.56308E+01  -.57996E+01  .57152E+01 

3  .27000E+02  .30000E+01  -.56263E-03  . 143S8E-03  -.28113E-03  -. 16S53E+02  . 10323E+00  -.33735E+01    -79.2 

. 74976E+00  -. 17500E+02  . 91247E+01 


CONTfllNTES  DANS  L  ELEMENT   27 
P.G.      X        Y       EPSX      EPSY     SflMXY      SISX      SIGY     TflUXY      TETft 

SIG1      SIG2     TftUMflX 

1  .31500E+02  .30000E+01  -.47934E-03  . 12177E-03  -.28415E-03  -.14365E+02  .61815E-0I  -.34098E+01    -77.3 

.82716E+00  -.15130E+02  .79786E+01 

2  .31500E+02  .60000E+01  . 17847E-16  -.41771E-05  -.47605E-03  -.33417E-01  -. 13367E+00  -.57126E+01    -44.7 

.56293E+01  -.57964E+01  .57129E+01 

3  .30000E+02  .30000E+01  -.47934E-03  . 12308E-03  -.28116E-03  -. 14354E+02  . 10367E+OO  -. 33739E+01    -77.5 

. 85224E+00  -. 15103E+02  . 79776E+01 


CONTfllNTES  DANS  L  ELEMENT   28 
P.G.      X        Y       EPSX      EPSY     SflMXY      SIGX      SIGY     TflUXY      TETfl 

SIS1      SIG2     TftUMflX 

1  .345OOE+02  .30000E+01  -.39623E-03  . 10117E-03  -.28380E-03  -. 11870E+02  .67654E-01  -.34056E+01    -75.1 

. 97085E+00  -. 12773E+02  . 68720E+0 1 

2  .34500E+02  .60000E+01  . 12916E-16  -.39840E-05  -.47515E-03  -.31872E-01  -.  12749E+00  -.57018E+01    -44.9 

.56223E+01  -.57817E+01  .57020E+01 

3  .33000E+02  .30000E+01  -.39623E-03  . 10236E-03  -.28130E-03  -. 11860E+02  . 10573E+00  -.33756E+01    -75.3 

. 99230E+00  -. 12747E+02  . 68697E+01 


CONTfllNTES  DANS  L  ELEMENT   29 
P.G.      X        Y       EPSX      EPSY     GflWXY      SISX      SIGY     TflUXY      TETfl 
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SIG1      SIG2     TAUMRX 

1  .37500E+02  .30000E+01  -.31391E-03  .81366E-04  -.2822AE-03  -.939A3E+01  .92467E-01  -.33868E+01    -72.2 

.11775S+01  -.10479E+02  .5S2S4E+01 

2  .37500E+02  . 60000E+01  .74417E-17  -.31501E-05  -.47115E-03  -.25201E-01  -. IOO8OE-K1O  -.56538E+01    -44.i 

.55909E+OI  -.57169E+01  . 56539E+01 

3  .36000E+02  . 30000E+01  -.31391E-03  .82072E-O4  -.28189E-03  -.93S86E+01  . 11501E+00  -.33827E+01    -72.3 

.11961E+01  -.1G470E+02  .56329E+01 


CONTAINTES  DANS  L  ELEMENT  ■  30 
P.G.      X        Y      EPSX      EPSY     6AMXY      SIGX      SISY     TftUXY 

SIGi      SIG2     TAUMAX 

1  .40500E+02  .30000E+01  -.23469E-03  .64245E-04  -.27647E-03  -.70025E+01  . 17672E+00  -.33i77E^0i 

.14751E+01  -.830O9E+O1  .48880E+01 

2  .40500E+02  .60000E+01  .59S05E-17  -. 17029E-06  -.45564E-03  -.13623E-02  -.54493E-02  -.  54677E+01 

.54642E+01  -.5A711E+01  .54677E+01 

3  .390C0E+02  .30000E+01  -.23A89E-03  .634796-04  -.2836 1E-03  -.70086E+01  . 15223E+00  -.34033E+01 

.15117E+01  -.S3680E+01  .49398E+01 


CQNTAINTES  DftfJS  L  ELEMENT   31 
P.G.     X        Y      EPSX      EPSY     3AMXY      SIGX      SIGY     TflUXY      TETA 

SIGI      SIG2     TAUMAX 

1  .A3500E+02  .30000E+01  -. 16606E-03  .A8A77E-0A  -.266736-03  -.492626+01  .22277E+00 -.3£008E*01    -64.4 

.175606+01  -.64534E+01  .A1077E+01 

2  .A3500E+02  .60000E+01  .40635E-16  .35364E-05  -.42014E-03  .28291E-01  .11316E+00  -.504I7E+01    -A5.2 

.51126E+01  -.497I1E+01  .50A19E+01 

3  .A2000E+02  .30000E+01  -. 16606E-03  .A9449E-04  -.28073E-03  -.49184E+01  .253876+00  -.336886+01    -63.6 

.19147E+01  -.65792E+01  .42469S+01 


CONTAINTES  DANS  L  ELEMENT   32 
P.G.      X        Y      EPSX      EPSY     SfiMXY      SIGX      SISY     TflUXY 

SIGI      SIG2     TAUMAX 

1  .46500E+02  .30000E+01  -.85147E-04  -.888246-04  -.41347E-03  -.343536+01  -.35235E+01  -.49616E+01 

.148246+01  -.8A413E+01  .A%18E+01 

2  .46500E+02  .60000E+01  .  19166E-16  -.  10056E-03  -.68437E-03  -.80452E+00  -.32181E+01  -.82125E+01 

.628946+01  -.10312E+02  .83007E+01 

3  .45000E+02  .30000E+01  -.851A7E-0A  .21937E-0A  -. 13257E-03  -.25A92E+01  .20799E-01  -. 15908E+01    -6A.5 

.78078E+00  -.330926+01  .20450E+OI 


CGNTAINTES  DANS  L  ELEMENT   33 
P.G.      X        Y      EPSX      EPSY     GAMXY      SIGX      SIBY     TAUXY 

SIGI      SIG2     TAUMAX 

1  .15000E+01  .60000E+01  .9A5A8E-17  -.63565E-0A  -. 19553E-03  -.508526+00  -.203A1E+01  -.23464E+01 
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.11959E+01  -.37386E+01  .24672E+01 

2  .  15000E+01  .90000E+01  .  I153SE-02  -.63565E-04  -.  322&6E-03  .35414E+02  .71965E+01  -.38719E+01     -7.4 

.36918E+02  .66921E+01  .15113E+02 

3  .OOOOOE+00  .90000E+01  . li538E-02  .OOOOOE+00  -. 10756E-03  .36922E+02  .9230&E+01  -. 12907E+01     -2.7 

.35982E+02  . 91706E+01  . 13906E+02 


CONTfllNTES  DflNS  L  ELEMENT   34 
P.G.     X        Y      EPSX      EPSY     BflMXY      SIGX      SIBY     TflUIY      TETfl 

SIG1      SIG2     TflUIWX 

i  .45000E+O1  .6OOO0E+O1  . 10051E-16  . 17682E-04  -. 48997E-03  . 14146E+00  .5&584E+O0  -.58756E+01    -46.0 

.62371E+01  -.55298E+01  .58834E+01 

2  .45000E+01  .90000E+01  . 12376E-02  -.312&2E-03  -.29373E-03  .37102E+02  -. 10321E+00  -.35248E+01     -5.4 

.37433E+02  -.43421 E+00  . 18934E+02 

3  .300OOE+01  .90000E+01  . 12376E-02  -.28854E-03  -.27446E-03  .37294E+02  .6&731E+00  -.32935E+01     -5. i 

.37588S+02  .37352E+00  .1B607E-K>2 


CONTfllNTES  DflNS  L  ELEMENT   35 
P.G.     X        Y      EPSX      EPSY     SfliIXY      SIGX      SIGY     TflUXY      TETfl 

SIG1      SIG2     TflUNAX 

1  . 75000E+01  .60000E+01  . 10500E-16  -.43041E-06  -.49378E-03  -.34433E-02  -.13773E-01  -.59253E+01    -45.0 

•59167E+01  -.59339E+01  .59253E+01 

2  .75000E+01  .90000E+01  . 115UE-02  -.28975E-03  -.27633E-03  .34517E+02  -.&3288E-01  -.33400E+01     -5.5 

. 34837E+02  -. 33293E+00  . 17610E+02 

3  .60000E+01  .90000E+01  . 11511E-02  -.29304E-03  -.28154E-03  .34491E+02  -. 16850E+00  -.33785E+01     -5.5 

. 34817E+02  -. 4947&E+00  . 17656E+02 


CONTAINTES  DflNS  L  ELEMENT   36 
P.G.      X        Y       EPSX      EPSY     GAHXY      SIGX      SIGY     TflUXY      TETfl 

SIG1      SIG2     TAUMflX 

1  .10500E+02  .50000E+01  . 10764E-16  .24726E-05  -.48140E-03  .  19781E-01  .79124E-01  -.57768E+0!    -45. i 

.58263E+01  -.57274E+01  .57769E+01 

2  .10500E+02  .90000E+01  . 10640E-02  -.2&786E-03  -.28220E-03  .31906E+02  -.59492EH>1  -.33864E+01     -6.0 

.32260E+02  -.41431E+00  .1S337E+02 

3  .90000E+01  .90000E+01  . 10640E-02  -.27037E-03  -.28138E-03  .31866E+02  -.  13977E+00 -.3376&E+01     -6.0 

. 32238£*02  -.  49191E+00  . 16365E+02 


CONTAINTES  DflNS  L  ELEMENT   37 

P.G.     X        Y      EPSX      EPSY     BflMXY      SIGX      SIGY  TflUXY      TETfl 

SIG1      SIG2  TflUtlflX 

1  .13500E+02  .60000E+01  . 12890E-16  .37887E-05  -.47749E-03  .30310E-O1  . 12124E+00  -.57299E+01    -45.2 

.58059E+01  -.56543E+01  .57301E+01 

2  .13500E+02  .90000E+01  .97960E-03  -.24677E-03  -.28375E-03  .29373E+02  -.59921E-01  -.34050E+01     -6.5 

.29762E+02  -. 44869E+00  . 15105E+02 
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3  . 12000E+02  .90000E+01  .97960E-03  -.24843E-03  -.28119E-03  .293S0E+02  -. 11298E+00  -.337A3E+01 

.  29741E+02  -.  49436E+00  .  151 16E-HJ2 


CONTRINTES  DANS  L  ELEMENT   38 
P.G.      X        Y       EPSX      EPSY     GAMXY      SIGX      SIBY     TAUXY 

SIG1      SIG2     TAUMflX 

1  .16500E+02  .60000E+01  .13957E-16  .41315E-05  -.47656E-03  .33052E-01  .  13221 E+OO  -.571 87E+01 

.58015E+01  -.56363E+01  .57189E+01 

2  .165O0E+02  .9CKJO0E+O1  .89602E-O3  -.22588E-03  -.2841AE-03  .26866E+02  -.60136E-O1  -.3A097E+01 

.  2729 1 E+02  -.  48520E+00  . 1 3S88E+02 

3  .15000E+02  .90000E+01  .89602E-03  -.22730E-03  -.2811AE-03  .26854E+02  -. 10537E+00  -.33736E+01     -7.< 

. 2727GE+02  -.  52 1 1 2E+0O  . 1 3896E+02 


CONTRINTES  DflNS  L  ELEMENT   39 
P.  6.     X        Y       EPSX      EPSY     6AMXY      SISX      SIGY     TAUXY 

SIG1      SIG2     TAUMAX 

1  .19500E+02  . 60000E+01  . 14105E-16  .A2089E-05  -.47635E-03  .33671E-01  .  13468E-MX) -.57162E+01 

.58O06E+O1  -.56323E+01  .57164S+01 

2  .1950OE+O2  .90000E+01  .81263E-03  -.205OAE-O3  -.28A23E-03  .2A36AE+02  -.60195E-01  -.3A107E+01 

. 24831E+02  -. 52755E+0O  . 12679E+OS 

3  .18O0OE+O2  .90000E+01  .S1263E-03  -.2064OE-03  -.28112E-03  .2A353E+02  -. 10360E+00  -.33735E+01     -l.\ 

.24810E+02  -.56039E+CO  . 12685E+02 


CONTRINTES  DflNS  L  ELEMENT   40 

P.G.      X        Y      EPSX      EPSY     GAMXY      SIGX  SIGY     TAUXY 

SIG1  SIG2     TflUMftX 

1  .22500E+02  .60000E+01  .769A1E-17  .42250E-05  -.47631E-03  .33800E-01  . 135S0E+0O  -.57157E+01 

.58004E+01  -.56314E+01  .57159E+01 

2  .22500E+02  .90000E+01  . 72929E-03  -. 18420E-03  -. 28424E-03  .21864E+02  -.60219E-01  -.34109E+01 

. 22382E+02  -. 57864E+00  . 1 1480E+02 

3  . 21000E+02  . 90000E+01  . 72929E-03  -. 18555E-03  -. 281 12E-03  . 21853E+02  -. 10322E+00  -. 33734E+01 

•22359E+02  -.60984E+00  .11485E+02 


CONTAINTES  DflNS  L  ELEMENT   41 
P.G.     X        Y       EPSX      EPSY     GflMXY      SIGX      SIGY     TAUXY      TETA 

SIG1      SIG2     TflUMflX 

1  .25500E+02  .60000E+01  .17713E-16  .42267E-05  -.47829E-03  .33814E-01  . 13525E+00  -.57155E+01    -45.; 

.56002E+01  -.56312E+01  .57157E+01 

2  .25500E+02  .90000E+01  . 64595E-03 -. 16337E-03  -. 28425E-03  .  1936AE+02  -.60277E-01  -.3A109E+01     -9.1 

. 19945E+02  -.  64185E+00  . 10293E+O2 

3  .24000E+02  .90000E+01  .64595E-03  -. 16A71E-03  -.28112E-03  . 19353E+02  -. 10316E+00  -.33735E+01     -9.« 

.  19921E+02  -.  671A8E+00  . 10296E+02 
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C0N7A!NTES  dans  L  ELEMENT       42 
p.G.  X  Y  EPSX  EPSY  GAMXY  SISX  SISY  TAUXY  TETA 

SIS1      SIG2     TAUMAX 

1  .28500E+02  .60000E+01  . 12006E-16  .42187E-05  -.47625E-03  .33749E-01  . 13500E+00  -.57150E+01    -45.3 

.57996E+01  -.56308E+01  .57152E+01 

2  .28500E+02  .90000E+01  .56263E-03  -. 14255E-03  -.28423E-03  . 16864E+02  -.&0545E-01  -.34108E+01    -11.0 

. 17525E+02  -. 72206E+00  . 91237E+01 

3  .27000E+02  .90000E+01  .56253E-03  -. 14388E-03  -.28113E-03  .  16853E+02 -. 10323E+00 -.33735E+01    -i.0.8 

. 17500E+02  -. 74976E+00  . 91247E+01 


CQNTfilNTES  DANS  L  ELEMENT   43 
P.B.     X        Y      EPSX      EPSY     GAMXY      SIGX      SIGY     TflUXY      "ETA 

SIG1      SIG2     TAUMAX 

1  .31500E+02  .60000E+01  .17847E-16  .41771E-05  -.47605E-03  .33417E-01  . 133&7E+00  -.57126E+01    -45.3 

.57964E+01  -.56293E+01  .57129E+01 

2  .31500E+02  .90000E+01  .47934E-03  -.  12177E-03  -.28415E-03  . 14365E+02  -.61815E-01  -.34098E+01    -12.7 

.15130E+02  -.&2716E+00  .797S&E+01 

3  .30000E+02  .90000E+01  .47934E-03  -. 12308E-03  -.28116E-03  . 14354E+02  -. 10367E+00  -.33739E+01    -12.5 

.15103E+02  -.S5224E+00  .7977&E+01 


CONTAINTES  DANS  L  ELEMENT   44 
P.G.     X        Y      EPSX      EPSY     GAMXY      SISX      SISY     TflUXY      TETA 

SIG1      SIG2     TflUMflX 

1  .34500E+02  .60000E+01  . 12916E-16  .39840E-05  -.47515E-03  .31872E-01  . 12749E+00  -.57018E+01    -45.2 

.57817E+01  -.56223E+01  .57020E+01 

2  .34500E+02  .90000E+01  .39623E-03  -. 10117E-03  -.28380E-03  .  11870E+02  -.&7&54E-01  -.34056E+01    -14.3 

.  1 2773E+02  -.  97085E+00  .  &8720E-H)  1 

3  .33000E+02  .90000E+01  .39623E-03 -.  10236E-03 -.28130E-03  .118S0E+02  -.10573E+00  -33756E+01    -14.7 

. 12747E+02  -.  99230E+00  . 68697E+01 


CONTAINTES  DANS  L  ELEMENT   45 
P.G.      X        Y       EPSX      EPSY     SflMXY      SIGX      SIGY     TAUXY      TETA 

SIG1      SIG2     TAUMAX 

1  .37500E+02  .60000E+01  .74417E-17  .31501E-05 -.47115E-03  .25201E-01  .  10080E+00  -.56538E+01    -45.2 

.57169E+01  -.55909E+01  .56539E+01 

2  .37500E+02  .90000E+01  .31391E-03  -.81368E-04  -.28224E-03  .93943E+01  -.92467E-01  -.33868E+01    -17.8 

. 1 0479E+02  -.11 775E+0 1  . 58284E+0 1 

3  .36000E+02  .90000E+01  .31391E-03  -.82072E-04  -.28189E-03  .93886E+01  -. 11501E+00  -.33827E+01    -17.7 

. 10470E+02  -. 11961E+01  . 58329E+01 


CONTAINTES  DANS  L  ELEMENT   46 
P.G.      X        Y       EPSX      EPSY     GAMXY      SIGX      SIGY     TAUXY      TETA 
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SIG1  SIG2     TflUMflX 

i  .40500E+O2  .60000E+01  .59905E-17  . 17029E-06  -.45564E-03  .13623E-0S  .54493E-02  -.54677E+01    -45.0 

.54711E+01  -.54642E+01  .54677E+01 

2  .40500E+02  .90000E+01  .23489E-03  -.64245E-04  -.27647E-03  .70025E+01  -. 17672E+00  -.33177E+01    -21.4 

.83009E+01  -.14751E+01  .48660E+01 

3  .39000E+02  .90000E+01  .23489E-03  -,63479Eh)4  -.28361E-03  .70086E+01  -. 15223E+00  -.34033E+01    -21.6 

.83680E+01  -. 15117E+01  .49398E+01 


CONTAINTES  DANS  L  ELEMENT   47 
P.G.      X        Y      EPSX      EPSY   ■   SAMXY      SIGX      SIGY     TflUXY 

SIG1      SIG2     TAUMAX 

1  .43500E+O2  .  600CJ0E+01  .40635E-16  -.35364E-05  -.42014E-03  -.28291E-01  -.  1I316E-KK>  -.50417E+01 

.49711E+01  -.51126E+01  .50419E+01 

2  .43500E+02  .90000E+01  . 16&06E-03  -.48477E-04  -.26673E-03  .49262E+01  -.22277E+00  -.32008E+01 

. 64594E+01  -. 17560E+01  . 41077E+01 

3  .42000E+02  .90000E+01  . 1&606E-03  -.49449E-04  -.28073E-03  .49184E+01  -.25387E+00  -.33688E+01    -26.  i 

.65792E+01  -.19147E+01  .42469E+01 


CONTAINTES  DANS  L  ELEMENT   46 

P.G.      X        Y       EPSX      EPSY     SAMXY      SIGX  SIGY     TflUXY      ?ZlH 

SIS1  SIG2     TAUMAX 

1  .46500E+02  .60000E+01  .191&6E-16  .10056E-03  -.68437E-03  .80452E+00  .32181E+0I  -.S2125E+01    -49.2 

.10312E+02  -.62894E+01  .83007E+01 

2  .46500E+02  .90000E+01  .85147E-04  .88824E-04  -.41347E-03  .34353E+01  .35235E+01  -.49616E+01    -45.3 

.84413E+01  -.14824E+01  .4961SE+01 

3  .45000E+02  .90000E+01  .85147E-04  -.21937E-04  -. 13257E-03  .25492E+01  -.20799E-01  -.15908E+01    -25.5 

.33092S+01  -.78078E+00  .20450E+01 


CONTfllNTES  DANS  L  ELEMENT   49 
P.G.     X        Y      EPSX      EPSY     SAMXY      SIGX      SI8Y     TflUXY      TETfi 

SIB1      SIG2     TflUMflX 

1  . 15000E+01  .90000E+01  . 13192E-02  -. 18747E-03  -.48780E-03  .40714E+02  .45543E+01  -.58536E+01     -9.0 

.41638E+02  .36303E+01  . 19004E+02 

2  .30000E+01  .90000E+01  . 11694E-02  -.28854E-03  -. 10756E-03  .35114E+02  . 12208E+00  -. 12907E+01     -2.1 

.351&1E+02  .74532E-01  .17543E+02 

3  .15000E+01  .12000E+02  .26425E-02  -.51777E-03  -.44555E-03  .80418E+02  .45714E+01  -.53467E+01     -4.0 

.80793E+02  .41963E+01  .38299E+02 


CONTfllNTES  DANS  L  ELEMENT   50 
P.G.     X        Y      EPSX      EPSY     GflMXY      SIGX      SIGY     TflUXY      TETA 

SIG1      SIG2     TAUMAX 

1  .45000E+01  .90000E+01  . 12279E-02  -.30507E-03  -.28349E-03  .3&851E+02  .60618E-01  -.34019E+01     -5.; 
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. 37163E+02  -. S5130E+00  . 18707E+02 

2  . 60000E+01  . 90000E+01  . 1 1622E-02  -. 293O4E-03  -. 27446E-03  . 34847E+02  -. 79466E-01  -.  32935E+01     -5. 3 

. 35155E+02  -. 38732E+00  . 17771E+02 

3  .45000E+01  .i2000E+0S  .23971E-0S  -59440E-03  -.50S8E-04  .71953E+02  . 15626E+00  -.60669E+00     -.5 

. 71958E+02  . 151 13E+00  . 35903E+Q2 


CONTfllNTES  DAN'S  L  ELEMENT   51 
P.G.     X        Y      EPSX      EPSY     SflMXY      SI6X      SIGY     TflUXY      TETfi 

SIG1      SIG2     TflUMfiX 

1  .75000E+01  .9O000E+O1  . 114O0E-02  -.28810E-03  -.28056E-03  .34177E+02  -.98918E-01  -.33667E-KH     -5.6 

.34504E+02  -.42648E+00  .17465E+02 

2  .9000OE+01  .90000E+01  . 10735E-02  -.27037E-03  -.28154E-03  .32188E+02  -.64231E-01  -.337856+01     -5.9 

.32538E+02  -.41434E+00  . 16476E+02 

3  .75000E+01  .12000E+02  .22432E-02  -.55844E-03  -.50915E-04  .67314E+02  .75302E-01  -.61098E+O0     -.5 

. 67319E+02  . 69751 E-Ol  . 33625E+02 


CONTfllNTES  DftNS  L  ELEMENT   52 
P.G.     X        V      EPSX      EPSY     GAMXY      SIGX      SIBY     TflUXY      tE"h 

SIG1      SIG2     TflUMfiX 

1  .10500E+02  .9O00OE+O1  . 10555E-02  -.26621E-03  -.28314E-03  .31647E+02  -.74499E-01  -.33977E+01     -6.0 

. 32006E+02  -. 43434E+00  . 1 6220E+02 

2  .12000E+02  .90000E+01  .98726E-03  -.24843E-03  -.28138E-03  .29605E+02  -.51747E-01  -.33766E+01     -6.4 

.29984E+02  -.43134E+00  . 15208E+02 

3  .10500E+02  .12000E+C2  .20817E-02  -.51677E-03  -.57160E-04  .62479E+02  . 11664E+00  -.68592E+00     -.6 

.62486E+02  . 10910E+00  .31139E+02 


CCNTftlNTES  DftNS  L  ELEMENT   53 
P.G.     X        Y      EPSX      EPSY     SflMXY      SIGX      SIGY     TflUXY      TETfi 

SIG1      SIG2     TflUMfiX 

1  .13500E+02  .90000E+01  .97190E-03  -.24497E-03  -.28399E-03  .29141E+02  -.63777E-01  -.34078E+0L     -6.6 

.  29533E+02  -.  45616E+0Q  . 1 W95E+02 

2  .15000E+02  .90000E+01  .90316E-03  -.22730E-03  -.28119E-03  .27083E+02  -.48224E-01  -.33743E+01     -7.0 

. 27496E+02  -.  46 1 59E+O0  . 1 3979E+02 

3  .13500E+02  .12000E+02  .  19163E-02  -.47498E-03  -.59055E-04  .57522E+02  . 13088E+00  -.70866E+00     -.7 

.57530E+02  .  12213E+O0  .28704E-K>2 


CONTfllNTES  DANS  L  ELEMENT   54 
P.G.      X        Y       EPSX      EPSY     GflMXY      SIGX  ■    SIGY     TflUXY      TETft 

SIG1      SIG2     TflUMfiX 

1  .16500E+02  .90000E+01  .88851E-03  -.22403E-03  -.28419E-03  .26640E+02  -.61003E-01  -.34103E+01     -7.2 

.27069E+02  -.48969E+O0  .13779E-K)2 

2  .18000E+02  .90000E+01  .81965E-03  -.20640E-03  -.28114E-03  .24578E+02  -.47407E-01  -.33736E+01     -7.7 

. 25O32E+02  -. 50 1 23E+00  .1 2766E+02 
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3  .16500E+02  .180O0E+O2  .17A99E-0S  -.43328E-03  -.59506E-04  .52531E+02  . 13437E+00  -.71407E+00 

. 5254 1 E+02  . 12464E+00  . 26208E+02 


CONTfllNTES  DAN'S  L  ELEMENT   55 
P.G.     X        V       EPSX      EPSY     GAMXY      SI6X      SI6Y     TAUXY 

SIG1      SIG2     TAUMAX 

1  .19500E+02  . 30000E+01  . 805 16E-03  -.2031 8E-03  -.28424E-03  .24140E+02  -.S0378E-01  -.34109E+01 

. £461 1E+02  -. 53193E+00  .  12572E+02 

2  .21000E+02  .90000E+01  .7362BE-03  -.18555E-03  -.28112E-03  .22077E+02  -.47236E-01  -.33735E+01 

.  225802+02  -.  550 1 3E+00  . 1 1 565Et02 

3  .19500E+02  .12000E+02  . 15833E-02  -.39161E-03  -.59604E-04  .47533E+02  . 13514E+00  -.71525E+00 

.47544E+02  . 12435E+00  .23710E+02 


C0NTAIN7ES  DANS  L  ELEMENT   56 
P.G.      X        V       EPSX      EPSY     GAMXY      SIGX      SIBY     TflUXY 

SIG1      SIG2     TAUMAX 

1  .22500E+02  .90000E+01  .72183E-03  -. 18234E-03  -.28425E-03  .21640E+02  -.60248E-01  -.34110E+01 

.22163E+02  -. 56378E+00  . 1 1374E+02 

2  .24000E+02  .90000E+01  .65294E-03  -. 16471E-03  -.28112E-03  . 19577E+02  -.47227E-01  -.33734E+01 

. 20140E+02  -. 61095E+00  . 1Q376E+02 

3  .22500E+02  .12000E+02  .14167E-02  -.34994E-03  -.59628E-04  .42534E+02  . 13527E+00  -.71554E+00     -1.0 

.42546E+02  . 12320E+00  .2I211E+02 


CONTAINTES  DANS  L  ELEMENT   57 
P.  6.     X        Y      EPSX      EPSY     GAMXY      SIGX      SIBY     TflUXY      rn 

SIG1      SIG2     TAUKAX 

1  .25500E+02  .90000E+01  .63850E-03  -. 16151E-03  -.28424E-03  . 19140E+02  -,60238E-0i  -.34109E+01 

. 1 9728E+02  -. 64818E+00  . 1 0188E+02 

2  .27000E+02  .90000E+01  .56961E-03 -.  14388E-03 -.28112E-03  . 17077E+02  -.47355E-01  -.33735E+01 

.17717E+02  -.68797E+00  .92026E+01 

3  .25500E+02  . 12000E+02  . 12500E-02  -. 30827E-03  -.  59647E-04  .37534E+02  . 13516E+00  -.71576E+00 

.37547E+02  . 12146E+CH)  .18713E+02 


CONTAINTES  DANS  L  ELEMENT   58 
P.G.      X        Y       EPSX      EPSY     GAMXY      SIGX      SIGY     TAUXY 

SIG1      SIG2     TAUMAX 


.17310E+02  -.72996E+00  .90201E+Oi 

2  .30000E+02  .90000E+01  .48630E-03  -. 12308E-03  -.2B113E-03  . 14577E+02  -.48011E-01  -.33735E+01    -12.4 

.15318E+02  -.78867E+00  .80531E+01 

3  .28500E+02  . 12000E+02  .  10833E-02 -.26663E-03 -.59718E-04  .32533E+02  . 13443E+00  -.71662E+00     -1.3 

.32549E+02  .11858E+00  . 16215E+02 


140 


CQNTfilNTES  DANS  L  ELEMENT   59 
P.G.     X        Y      EPSX      EPSY     BflMXY      3ISX      SIGY     TAUXY      TE~A 

SIG1      SIG2     TflUKfiX 

1  .31500Et02  .90000E+01  .47197E-03  -. 11989E-03  -.284O9E-03  . 14144E+02  -.60720E-01  -.34090E+01    -12.B 

. 14920E+02  -.63650E+00  .7B7S0E+0: 

2  .33000E+02  .90000E+01  .40306E-03  -. 10236E-03  -.28U6E-03  . 12079E+02  -.5ii0BE-0i  -.33739E+01    -14.5 

. 1 2954E+02  -. 92539E+00  . 69403E+0 1 

3  .31500E+02  .12000E+02  .91654E-03  -.225C4E-03  -.60055E-04  .27529E+02  . 13093E+00  -.72066E+00    -1.5 

. 27548E+02  .ill 99E+00  . 1 37 1 8E+02 


CONTfllNTES  DANS  L  ELEMENT   60 
P.G.      X        Y       EPSX      EPSY     GAMXY      SIBX      SIGY     TflUXY      ~E~S 

SIGi      SIG2     TflUMAX 

1  .34500En)2  .90000E+01  .3891SE-03  -.99246E-04  -.2B348E-03  .  11659E+02 -.62603E-01  -.34O18E+01    -15.1 

.12575E+02  -.97830E+00  .67765E+01 

2  .36000E+02  .90000E+01  .32015E-03  -.82072E-(i4  -.28130E-03  .95884E+01  -.65076E-01  -.33756E+01    -17.5 

.  1 0652E-HJ2  -.11 284E+0 1  .  58900E+0 1 

3  .34500E+02  .12(KJ0E+O2  .74941E-03  -. 16376E-03  -.61633E-04  .22511E+02  . 11486E+00  -.73960E+00    -1.3 

.22535E+02  .90463E-01  .11222E-K)2 


CONTfllNTES  DANS  L  ELEMENT   61 
P.S.      X        Y       EPSX      EPSY     GflMXY      SIGX      SIBY     TflUXY      TETfi 

SIGi      SIG2     TfiUMflX 

1  .37500E+02  .90000E+01  .30820E-03  -.79265E-04  -.28089E-03  .92283E+01  -.70860E-01  -.33706E+Oi    -18.0 

.10322E+02  -. 1164IE+01  .57428E+01 

2  .39000E+02  .90000E+01  .23872E-03  -.63479E-04  -.28189E-03  .71313E+01  -. 12156E+00  -.33827E+01    -21.5 

.84640E+01  -.  14543E+01  .49592E+01 

3  .37500E+02  . 12000E+02  .58057E-03  -. 14366E-03  -.68621 E-04  .17429E+02  .46786E-01  -.62345E+00     -2.7 

.17468E+02  .7B630E-02  .87299E-KU 


CONTfllNTES  DANS  L  ELEMENT   62 
P.S.      X        Y       EPSX      EPSY     SftMXY      SIGX      SIGY     TflUXY      TETfl 

SIGI      SIG2     TflUMflX 

1  .40500E+02  .90000E+01  .23462E-03  -.61830E-04  -.27178E-03  .70132E+01  -. 10162E+00  -.32614E+01    -21.3 

.82819E+01  -. 13704E+01  .48261E+01 

2  .42000E+02  .90000E+01  . 16265E-03  -.49449E-04  -.28361E-03  .48092E+01  -.28117E+00  -.34033E+01    -26.6 

.65138E+01  -. 19858E+01  .42498E+01 

3  .40500E+02  . 12000E+02  .40429E-03  -. 10677E-03  -.95552E-04  . 12083E+02  -. 18232E+00  -. 11466E+01     -5.3 

.1219OE+02  -.28859E+00  .62391E+01 


CONTfllNTES  DfiNS  L  ELEMENT   63 
P.G.      X        Y       EPSX      EPSY     GflMXY      SIGX      SIGY     TflUXY      T£7A 
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SIG1 


SIG2 


"WAX 


i  .43500E+02  .90000E+0;  . 18016E-03  -.49195E-04  -.26112E-03  .53717E+01  -. 13292E+00  -. 3I33AE+01 

.67899E+01  -.15512E+01  .41705E+01 

2  .45000E+02  .90000E+01  .94911E-04  -.21937E-04  -.23073E-03  .28617E+01  .57312E-01  -.33688E+01 

•51084E+01  -.21694E+01  .36489E+01 

3  .43500E+02  . 12000E+02  .20152E-03  -.60935E-04  -. 15722E-03  .59610E+01  -.33779E+00  -. 18866E+01 

•64829E+01  -.85%4E+O0  .36713E+0i 


C0NTAIN7ES  DANS  L  ELEMENT   64 
P.G.     X        Y       EPSX 


EPSY 


GAMXY 


SISX 
SIS1 


SI  BY 
SIG2 


TfiUXY 
TflUMftX 


1  .46500E+02  .90000E+01  -.11615E-16  .19011E-03  -.25348E-03  .15209E+01  .60834E+01  -.30417E+0i 

.76043E+01  -.67057E-13  .38021E-K)i 

2  .  48000E+02    .  90000E+01  -.  731 12E-04    .  25479E-03  -.  13257E-03  -.  30126E+00    .  75684E+01  -.  15908E+01 

.78778E+01  -.61068E+00    .42442E+01 

3  .46500E+02    . 12000E+02    .73112E-04  -. U770E-03  -.50210E-04    . 13979E+01  -.31816E+01  -.60253E+00 

•14759E+01  -.32596E+01     .23577E+01 


EQUILIBRIUM  RESIDUALS  AND  REACTIONS 


NODES 

X 

Y 

z 

DEGREES  OF  FREEDOM 

(*  =  PRESCRIBI 

1 

.OOOOOE+00 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO  * 

•OOOOOE+00  * 

2 

.OOGOOE+00 

.30000E+01 

. OOOOOE+00 

.OOOOOE+00  * 

•OOOOOE+OO  ♦ 

.OOOOOE+00 

.60000E+01 

.OOOOOE+OO 

.OOOOOE+00  * 

•OOOOOE+00  * 

4 

. OOOOOE+00 

.90000E+01 

. OOOOOE+00 

.OOOOOE+00  # 

•OOOOOE+00  * 

5 

.OOOOOE+00 

. 12000E+02 

.OOOOOE+OO 

.OOOOOE+OO  * 

•OOOOOE+OO  * 

6 

, 15000E+01 

. OOOOOE+OO 

. OOOOOE+00 

. OOOOOE+00 

.  OOOOOE+00 

7 

. 15000E+01 

.30000E+01 

.OOOOOE+OO 

.OOOOOE+00 

. OOOOOE+OO 

8 

. 1500GE+01 

.  60000E+01 

.OOOOOE+00 

. OOOOOE+00 

.  OOOOOE+OO 

9 

. 15000E+01 

.90000E+01 

.OOOOOE+OO 

•OOOOOE+00 

.OOOOOE+00 

10 

. 15000E+01 

. 12000E+02 

.  OOOOOE+00 

. OOOOOE+00 

.OOOOOE+00 

11 

.30000E+01 

.OOOOOE+OO 

.OOOOOE+00 

.OOOOOE+OO 

.OOOOOE+00 

12 

•30000E+01 

. 30000E+01 

.OOOOOE+OO 

. OOOOOE+00 

. OOOOOE+00 

13 

.30000E+01 

.60000E+01 

.OOOOOE+00 

.OOOOOE+00 

.OOOOOE+00 

14 

.30000E+01 

.90000E+01 

.OOOOOE+00 

.OOOOOE+OO 

. OOOOOE+00 

15 

.30000E+01 

. 12000E+02 

.OOOOOE+00 

.OOOOOE+00 

. OOOOOE+00 

16 

.45000E+01 

.  OOOOOE+00 

.OOOOOE+OO 

. OOOOOE+00 

. OOOOOE+00 

17 

.45000E+01 

.30000E+01 

.OOOOOE+00 

.OOOOOE+00 

.OOOOOE+00 

18 

.45000E+01 

. 60000E+01 

.OOOOOE+00 

. OOOOOE+00 

. OOOOOE+00 

19 

.45000E+01 

.90000E+01 

.OOOOOE+00 

.OOOOOE+00 

•OOOOOE+00 

20 

.45000E+01 

. 12000E+02 

. OOOOOE+OO 

.OOOOOE+OO 

. OOOOOE+OO 

21 

.60000E+01 

.OOOOOE+OO 

.OOOOOE+00 

.OOOOOE+00 

•OOOOOE+00 

22 

.600(XiE+01 

.SOOCiOE+01 

•OOOOOE+OO 

. OOOOOE+00 

. OOOOOE+00 

23 

.60000E+01 

.60000E+01 

.OOOOOE+00 

•OOOOOE+OO 

•OOOOOE+OO 
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24 

, 50000E+01 

.90000E+01 

.OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

.60000E+01 

. 12000E+02 

.OOOOOE+OO 

. OOOOOE+OO 

.OOOOOE+OO 

25 

.75000E+01 

.  00O0OE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

£7 

.75000E+01 

.30000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

. OOOOOE+OO 

26 

•7500OE+01 

.  60000E+01 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

29 

.75000E+01 

.90000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

. OOOOOE+OO 

30 

•75000E+01 

. 12000E+02 

•OOOOOE+OO 

.OOOOOE+OO 

.  OOOOOE+OO 

31 

.90000E+01 

.00000E+00 

.OOOOOE+OO 

. OOOOOE+OO 

•OOOOOE+OO 

32 

. 90000E+01 

.30000E+01 

. OOOOOE+OO 

.OOOOOE+OO 

. OOOOOE+OO 

33 

•90000E+01 

.60000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

•OOOOOE+OO 

34 

.90000E+01 

.900O0E+01 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

35 

.90000E+01 

. 12000E+02 

.OOOOOE+OO 

.OOOOOE+OO 

. OOOOOE+OO 

36 

.  10500E+02 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

.  OOOOOE+OO 

37 

.  10500E+02 

.30000E+01 

.OOOOOE+OO 

•OOOOOE+OO 

•OOOOOE+OO 

38 

.  10500E+02 

•60000E+01 

.OOOOOE+OO 

. OOOOOE+OO 

.  OOOOOE+OO 

39 

.10500E+02 

.90000E+01 

.OOOOOE+OO 

•OOOOOE+OO 

. OOOOOE+OO 

40 

.10500E+02 

.  12000E+02 

.OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

41 

.  12000E+02 

.00000E+00 

.OOOOOE+OO 

.OOOOOE+OO 

•OOOOOE+OO 

42 

.  12000E+02 

. 30000E+01 

. OOOOOE+OO 

. OOOOOE+OO 

.OOOOOE+OO 

43 

.  12000E+02 

.60000E+01 

•OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

44 

.  12000E+02 

.90000E+01 

. OOOOOE+OO 

. OOOOOE+OO 

.OOOOOE+OO 

45 

.  12000E+02 

. 12000E+02 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

46 

.  13500E+02 

. OOOOOE+OO 

. OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

47 

.  13500E+02 

.30000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

46 

.  13500E+02 

. 60000E+01 

. OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

49 

.  13500E+02 

.90000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

50 

.  13500E+02 

. 12000E+02 

.OOOOOE+OO 

.OOOOOE+OO 

.  OOOOOE+OO 

51 

.  15000E+02 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

. OOOOOE+OO 

52 

.15000E+02 

.30000E+01 

.OOOOOE+OO 

.  OOOOOE+OO 

.  OOOOOE+OO 

53 

.  15O00E+02 

.60000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

•OOOOOE+OO 

54 

.  15000E+02 

.  90()00E+01 

. OOOOOE+OO 

. OOOOOE+OO 

. OOOOOE+OO 

55 

. 15000E+02 

. 12000E+02 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

56 

. 15500E+02 

. OOOOOE+OO 

. OOOOOE+OO 

.OOOOOE+OO 

. OOOOOE+OO 

57 

. 16500E+02 

.30000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

58 

. 16500E+02 

.60000E+01 

. OOOOOE+OO 

.OOOOOE+OO 

. OOOOOE+OO 

59 

. 16500E+02 

.90000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

60 

.  16500E+02 

. 12000E+02 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

61 

. 18000E+02 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

62 

.1B000E+02 

. 30000E+01 

. OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

63 

.18000E+02 

.60000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

•OOOOOE+OO 

64 

. 18000E+02 

. 90000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

•OOOOOE+OO 

65 

.  18000E+02 

. 12000E+02 

.OOOOOE+OO 

.OOOOOE+OO 

•OOOOOE+OO 

66 

•  19500E+02 

. OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

. OOOOOE+OO 

67 

.  19500E+O2 

.30000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

68 

.19500E+02' 

.  60(>00E+01 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

69 

.  19500E+02 

.90000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

70 

. 19500E+02 

. 12000E+02 

.OOOOOE+OO 

.OOOOOE+OO 

•OOOOOE+OO 

71 

.21000E+02 

.OOOOOE+OO 

.OOOOOE+OO 

.OOOOOE+OO 

•OOOOOE+OO 

72 

.21000E+02 

. 30000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

•OOOOOE+OO 

73 

.21000E+02 

.60000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

•OOOOOE+OO 

74 

.210O0E+02 

.90000E+01 

.OOOOOE+OO 

.OOOOOE+OO 

•OOOOOE+OO 
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75  .21000E+02 

76  .22500E+02 

77  . 22500E+02 

78  .22500E+02 

79  .22500E+02 

80  .22500E+02 

81  .24000E-KK 

82  .24000E+02 

83  .24000E+02 

84  .24O00E+02 

85  .24000E+02 

86  .25500E+02 

87  .25500E+02 

88  .25500E+02 

89  .25500E+02 

90  . 25500E+02 

91  . 27000E+02 

92  .27000E+02 

93  .27000E+02 
9A  .27000E+02 
95  .27000E+02 
%  .28500E+02 

97  .28500E+02 

98  .28500E+02 

99  .28500E+02 

100  .28500E+02 

101  .30000E+02 

102  . 30000E+02 

103  .30000E+02 

104  .30000E+02 

105  . 30000E+02 

106  .31500E+02 

107  .31500E+02 

108  .31500E+02 

109  .31500E+02 

110  .31500E+02 

111  .33000E+02 

112  .33000E+02 

113  .33000E+02 

114  .33000E+02 

115  .33000E+02 

116  .34500E+02 

117  .345002+02 

118  .34500E+02 

119  .34500E+02 

120  .34500E+02 

121  .36000S+02 

122  .36000E+02 

123  .36000E+02 

124  .36000E+02 

125  .36000E+02 


. 12000E+02 
.CmX)OOE+00 
.30000E+01 
. 60000E+01 
.90<:HK)E-K)i 
.  12000E+02 
.  OOOOOE+OO 
.300COE+01 
.60000E+01 
.90000E+01 
.  12000E+02 
.OOOOOE+OO 
.30000E+01 
.60000E+01 
.90(X)0E+01 
.  12000E+02 
. OOOOOE+OO 
.30000E+01 
.600(X)E+01 
.90000E+01 
. 12OO0E+02 
.OOOOOE+OO 
.30000E+01 
.60000E+01 
.90000E+01 
. 12000E+02 
.  OOOOOE+OO 
.300002+01 
•60000E+01 
. 90000E+01 
. 12000E+02 
.OOOOOE+OO 
.30000E+01 
.60000E+01 
.90000E+01 
. 12000E+02 
.  0000()E+00 
.30000E+01 
.60000E+01 
.90000E+01 
. 12000E+02 
.OOOOOE+OO 
.30(iOOE+01 
.60000E+01 
.90000E+01 
. 12000E+02 
.  OOOOOE+OO 
.30000E+01 
.50000E+01 
.90000E+01 
. 12000E+02 


. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.COOOOE+00 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.COOOOE+00 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 


. OOOOOE+OO 

.  OOOOCE+00 
.  OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.  OOOOOE+OO 
.  OOOOOE+OO 
.  OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.  OOOOOE+OO 
.  OOCCOE+00 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.  OOCOOE+00 
.  OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.  OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 


)0E+00 
.  0OO00E+-0C 
. OOOOOE+CO 
. OOOOOE+OC 
. OOOOOE+OO 
. OOOOOE+OC 
. OOOOOE+OO 
. OOOOOE-OC 
. OOOOOE+OC 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOCOOE+00 
.  OOOOOE+OC 
. OOOOOE+OO 
.  OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOCOOE+00 
.OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.  OOOOOE+OC! 
. OOOOOE+OO 
. OOOOOE+OO 
, OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. 00000 E+00 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OC 
. OOOOOE+OO 
. OOOOOE+OO 
.  OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.  OOOOOE+OO 
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126  .37500E+02 

127  . 37500E+02 

128  .37500E+02 

129  .37500E+02 

130  .37500E+02 

131  . 39000E+02 

132  .39000E+02 

133  .39000E+02 

134  .39000E+02 

135  . 39000E+02 

136  .405O0E+02 

137  .4O5O0E+02 

138  .40500E+02 

139  .4O5O0E+02 

140  .40500E+02 

141  .42000E+02 

142  .42000E+02 

143  .42000E+02 

144  .42000E+02 

145  .42000E+02 

146  .43500E+02 

147  . 43500E+02 

148  .43500E+02 

149  .43500E+02 

150  .43500E+02 

151  .45000E+02 

152  .45000E+02 

153  .45000E+02 

154  .45000E+02 

155  . 45000E+02 

156  .46500E+02 

157  .46500E+02 

158  .46500E+02 

159  .46500E+02 

160  .46500E+02 

161  .48000E+02 

162  .48000E+02 

163  .48000E+02 

164  .48000E+02 

165  .48000E+02 


. 0O0O0E+0O 
.  30000E+01 
.60000E+01 
.90000E+01 
. 1200OE+O2 
. OOOOOE+OO 
.30000E+01 
.60000E+01 
.90000E+01 
.  12000E+02 
. OOOOOE+OO 
.30000E+OI 
.60000E+01 
.90000E+01 
.  12000E+02 
. OOOOOE+OO 
.30000E+01 
.60000E+01 
.90000E+01 
. 12O00E+02 
. OOOOOE+OO 
.300C!0E+01 
.60000E+01 

.90000E+01 

. 12000E+02 
.  OOOOOE+OO 
.30000E+01 
.60000E+01 
. 90000E+01 
. 12000E+02 
.OOOOOE+OO 
. 30000E+01 
.60000E+01 
.90000E+01 
. 12000E+02 
. OOOOOE+OO 
.30000E+01 
.60OCi0E+0i 
.90000E+01 
. 12OO0E+02 


, OOOOOE+OO 
. O0OO0E+ 00 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
, OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 


. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.  OOOOOE-KiO 
. OOOOOE+OO 
.  OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.  OOOOOE-rOO 
. OOOOOE+OO 
.  OOOOOE+OO 
. OOOOOE+OO 
.  OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
, OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
.OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 
. OOOOOE+OO 


COOOOE+00 

OOOOOE+OC 
. O0O0OE~0v 

0O0OOE*00 
, OOOOOE+OC 
, COOOOE+00 
,  00000E-*OO 

OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, COOOOE+00 
, OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, COOOOE+00 
, OOOOOE+OC 

JOOOOE+00 
, OOOOOE+OO 

COOOOE-*-00 
, OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 

OOOOOE+OO 
. OOOOOE+OO 
, OOOOOE+OO 

OOOOOE+OO 
, OOOOOE+OO 
, OOOOOE+OO 
, 40000E+02 
, OOOOOE+OO 
, OOOOOE+OO 


END  OF  PROBLEK, 
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APPENDIX    E 
MEF    PROGRAM    LISTINGS 


The  program  listings  for  MEF  are  provided  below.     Each  seoarate    disk    file,     or  comoiland,   is 
marked  by  the  Microsoft  F0RTRP.N  77  metacommands  which  preceed  it. 


SD066 

JNOFLOATCALLS 

C 


C== 


C     F  .  E  .  N  .  -  3  -  PROGRAM,  'BOOK'  VERSION   OCTOBER  1979 

C    (S.TOUZOT  ,  G.DHATT,  CGMPIEGNE  UNIVERSITY  OF  TECHNOLOGY,  FRANCE) 

C 

C      MODIFIED  FOR  IMPLMENTATION  ON  THE  IBM  PC  AND  THE  COMUMBIA 

C  MPC  USING  MICROSOFT  FORTRAN  VER  3.2 

C 

C 

C     (  REHE  E.  RUESCH,  LCDR,  USN,  U.S.  NAVAL  POSTGRADUATE  SCHOOL  ) 

C 

c 

C  MAIN  PROGRAM 

C 


IMPLICIT  REAL*8(A-H,0-Z) 

CHARACTER*4  BLOC, BLOCS (21) 

CHARACTER*!*  INFILE,OUTFILE 

COitfiON/COOR/NDIM,  NNT,  NDLN,  NDLT,  FAC  (3) 

CCMMON/COND/NCLT,  NCLZ,  NCLNZ 

CQMH0N/2RND/NPRN 

COMMON/PREL/NGPE,NPRE 

CCMON/ELEM/NELT, NN&, NTPE, NGRE, ME, NIDENT, NPG 

COMMON/ASSE/NSYtt,  NKG,  NKE,  NDLE 

COKMON/RESO/NEQ,  NRES,  MRES 

COMMON/RGDT/IEL,  ITPE,  ITPE1,  IGRE,  IDLE,  ICE,  IPSNE,  IPREE,  INEL,  IDEG, 
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1  IPS,  ICDD,  IDLEO,  INELO,  IPSO 

COMMON/LIND/NLBL,  NBLM,  ?K31 ,  NKG2 

CCMMON/NLIN/EPSDL,  XNORK,  QMEBfl,  XPSS,  DPAS,  DPflSO,  NiPflS,  I  PAS,  NITER, 
1     ITER,  IMETH 

COMMON/VALP/NITERi,NMDIAG,  E3SLB,  SHI- ,  ^SS, MS«M,  T0LJ3C, NVSL? 

COMMON/ES/M,  MR,  MP,  HUM  (10) 

COMMON/ ALLCC/NV'fi,  IVfl,  IVAMflX,  NREEL,  NTBL 

COKMON/LCC/LCORG,  LDLNC,  LnEQ,  LDI*P,  LPRN3,  LPREG,  LLD,  LLOCE,  LCDRE,  LNE, 

1  LPRNE,  LPREE,  LDLE,  LKE,  LFE,  LKBB,  LK8D,  LK6I ,  LFS,  LRES,  JJLS,  LHE, 

2  LDLEO,LDLSO,LFGO 
COMMON/TRVL/VDE  (9) ,  RDUMMY<5!2) ,  NULL 
COMMON/DUMPLA/Y13,  ¥21,  X13,  X2i,  SUA,  SU5,  SUE,  DA,  D5,  D6, 

1CLA,  CL5,  0.6,  SLA,  SL5,  SLfi,  B(3,9) 
COMMON  VR( 20000) 
DATA  BLOCS/'  1MB1 , '  COMT' , '  CQCR' , '  DLPN1 , '  CGND' , '  PRND'  , '  PRE.' , 

*  '  ELEM' , '  SOLD1 , '  SOLP' , '  LI W , '  LIND' , » NLIN' , '  TEMP' , 

*  'VQiP'  '    '  '    '  '    '  '    '  '    '  'STOP'/ 
DATA  NB/21/ 

C 

C+++++++++  WRITE  HEADING  TO  CONSOLE  AND  REQUEST  INPUT  AND  CUTDIJT 

C       FILENAMES.  FILE  NflWES  MUST  CONFORM  TO  MS  DOS  2.0 

C        CONVENTIONS.  NO  PATHNAMES  ALLOWED,  fl  NAME  CAN,  THEREFORE, 

C        CONSIST  OF  (AT  MOST)  1A  CHARACTERS:  DEV;FILENAME.EX7 

C 

C  FOR  EXAMPLE:   A: INPUT. DAT 

C 

WRITE <♦,  2000) 

WRITE (*,'(A\)')   '  COMMAND-FILE  NAME?  ' 

READ(*,MA1A)M  INFILE 

WRITE(*,'(/)') 

WRITE(*,'(A\)')   '  OUTPUT  FILE  NAME?  ' 

READ(*,'(A1A)M  OLTFILE 

WRITE(*, '(/)') 

WRITE<*,'(A>')    '  PROCESSING  BESINS. .. ' 

OPEN  (MP,  FILE=OUTFILE,  STATUS='  NEW ) 

OPEN(MR,FILE=INFIL£,STPTUS='OLD'  1 
C 

ClHIIHI 

c 

c 

C LENGTH  OF  BLANK  COMMON  IN  REAL  WORDS  (TABLE  VA) 

NVA=20000 
C HEADING 

WRITE (MP, 2000) 
2000  F0RMAT(1H1,30X,'P.E.M.3.'/25X,'  G.TOUZGT,  G.DHA7T' 

1  ,/25X,'        MODIFIED  BY' 

2  ,//25X,'      REHE  E.  RUESCH'/25X,i9C =')//) 
C READ  BLOCK  TITLE 

10        READ  (MR,  1000)  BLCC,M,MLUN 

WRITE(*,'(A18,AA)')  '   PROCESSING  BLOCK  ' ,  BLOC 
1000    FORMAT (A*, 16,1015) 
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C SEARCH  FOR  THE  BLOCK  TO  BE  EXECUTED 

DO  20  1=1,  NB 
IF  (BLDC.  EQ.  BLOCS  <  I  > )  SC  TO  30 
20   CONTINUE 

WRITE  wp,aoio) 

2010  FORMATC  «  ERROR,  MISSING  BLOCK  CALLING  CARD',/) 

GO  TO  10 
30   GO  TO  (110, 120, 130, 140, 150, 160, 170, 

1  180, 190, 200, 210, 220, 230, 240, 

2  250, 260, 270, 280, 230, 300, 999) ,  I 

C BLOCK  TO  PRINT  IMAGES  OF  DATA  CARDS  ' IMPS' 

110   CALL  BLIKAG 

GO  TQ  io 

C BLOCK  TO  READ  AND  PRINT  COMMENTS  'COMT' 

120  CALL  BLCOMT 

GO  TO  10 

C BLOCK  TO  READ  NODAL  POINTS  COORDINATES        'COOR' 

130  CALL  BLCOOR 

GO  TO  10 

C BLOCK  TO  READ  DEGREES  OF  FREEDOM  PER  NODE      'DLPN' 

140   CALL  BLDLPN 

60  TO  10 

C BLOCK  TO  READ  BOUNDARY  CONDITIONS  'CCND' 

150  CALL  BLCOND 

GO  TO  10 

C BLOCK  TO  READ  NODAL  PROPERTIES  'PRND' 

160  CALL  BLPRND 

GO  TO  10 

C BLOCK  TO  READ  ELEMENT  PROPERTIES  '  PREL' 

170   CALL  BLPREL 

GO  TO  10 

C- BLOCK  TO  READ  ELEMENT  DATA  'ELEM' 

180   CALL  BLELEM 

GO  TO  10 

C BLOCK  TO  READ  CONCENTRATED  LOADS  'SOLC 

190  CALL  BLSOLC 

GO  TO  10 

C BLOCK  TO  READ  DISTRIBUTED  LOADS  'SOLR' 

200  CALL  BLSOLR 

60  TO  10 

C BLOCK  FOR  IN  CORE  ASSEMBLING  AND  LINEAR  SOLUTION  'LINM' 

210  CALL  BLLINM 

GO  TO  10 

C BLOCK  FOR  ON  DISK  ASSEMBLING  AND  LINEAR  SOLUTION  'LIND' 

220   CALL  BLLIND 

60  TO  10 

C BLOCK  FOR  NON  LINEAR  PROBLEM  SOLUTION         ' NLIN' 

230   CALL  BLNLIN 

60  TO  10 

C BLOCK  FOR  UNSTEADY  PROBLEM  'TEMP' 

240      CALL  BLTEMP 
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80  TO  10 
—    BLOCK  TO  COMPUTE  EIGENVALUES  (SUBSPftCE)  'VALP' 


250 

CALL  BLVflLP 
GO  TO  10 

r»_ 

iiMnnrTWFn  en  nrc 

L 

UNl/CrinCif  DLULO 

250 

CONTINUE 

270 

CONTINUE 

280 

CONTINUE 

290 

CONTINUE 

300 

CONTINUE 
SO  TO  10 

C 

—  END  OF  PROBLEM 

'STOP' 

999 

WRITE  (MP,  2020)  IVAMAX,NVA 

2020 

FORMAT (//'  END  OF  PROBLEM, 

STOP 

END 

',110,'  UTILIZED  REAL  WORDS  OVER', 110) 
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$LARGE 
SNCf.OATCALLS 

BLOCK  DATA 


C    INITIALIZE  LABELLED  COMMONS 

IMPLICIT  REAL*8(A-H,0-Z) 

COWUJN/CQQR/NDM,  NN7,  NDLN,  NDLT,  FAC  (3) 

COMMON/CCND/NCLT,  NCLZ,  NCLNZ 

COMtfON/PRND/NPRN 

COMMON/ PREL/NGPE,  NPRE 

COmQN/ELEM/NELT,  NNEL,  NTPE,  NGRE,  ME,  NIDENT,  NPG 

COMMON/ASSE/NSYM, NKG, NKE,  NDLE 

CCMON/RESO/NEQ, NRES,  MRES 

COMM0N/R6DT/IEL,  I7PE,  ITPEI,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDEG, 
1  IPG,  ICOD,  IDLEO,  INELO,  IPGO 

COMNON/LIND/NLBL, NBLM, MKG1 , MKG2 

COMMON/NLIN/EPSDL,  XNORM, OMEGA,  XPAS,  DPAS,  DPASO,  NPAS,  I  PAS, NITER, 
1  ITER,IMETH 

COMMON/VALP/NITER1, NMDIAG,  EPSLB,  SHIFT,  NSS,  NSHM, TOLJAC, NVALP 

COMMON/ES/M,  MR,  MP,  MLUN  (10) 

CGMMGN/ALLOC/NVA, IVA, IVAMAX, NREEL, NTBL 

COMMON/LOC/LCORG,  LDLNC,  LNEQ,  LDIMP,  LPRNG,  LPREG,  LLD,  LLOCE,  LCORE,  LNE, 

1  LPRNE,  LPREE,  LDLE,  LKE,  LFE,  LKGS,  LKGD,  LKGI,  LFG,  LRES,  LDLG,  LME, 

2  LDLEO,LDLGO,LFGO 

DIMENSION  lC0RG(I),LDLNC(1),LNEQ(1),LDIMP(1),LPRNG(1),LPREG(1), 

*  LLD(1),LL0CE(1),LC0RE(1),LNE(1),LPRNE(1),LPREE(1),LDLE(1), 

*  LKE(1),LFE(1),LKGS(1),LKGD(1),LKGK1),LFG(1),LRES(1),LDLG(1), 

*  LME(1),LDLE0(1),LDL60(1),LFG0(1) 
DIMENSION  LXX(25) 

EQUIVALENCE  (LXX(1),LC0RG) 
C COMMON  /COOR/ 

DA'A  NNT/20/,NDLN/2/,NDIM/2/,FAC(i),FAC(2),FAC(3)/3M.DO/ 
C COMMON  /PRND/ 

DATA  NPRN/O/ 
C COMMON  /PREL/ 

DATA  NGPE/0/,NPRE/0/ 
C COMMON  /ELEM/ 

DATA  NELT/20/,NNEL/a/,NTPE/l/,NGRE/l/,ME/l/,NIDENT/0/ 
C COMMON/ASSE/ 

DATA  NSYM/O/ 
C COMMON  /RESO/ 

DATA  NRES/0/,MR£S/2/ 
C COMMON  /RGDT/ 

DATA  ITPE1/0/ 
C COMMON  /LIND/ 

DATA  MKGl/4/,MKG2/7/ 
C COMMON  /NUN/ 

DATA  EPSDL/1. D-2/, OMEGA/1. DO/, DPAS/. 2D0/, NPAS/1/, NITER/5/, IMETH/1/ 
C COMMON  /VALP/ 
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DATA  NITERl/10/,NMDIP.G/0/,t?S_&/:.D-3/,5r':rT/O.DO/,\S3/5/) 

1  NSWM/12/,T0LJAC/:.D-i2/,NVPLP/3/ 
C COMMON  /ES/ 

DATA  MR/5/, MP/6/ 
C COMMON  /ALLOC/ 

DATA  IVfl/l/,IVfiMflX/l/,NTBL/25/ 

C DEFINE  HERE  THE  NUMBER  OF  INTEGERS  CONTAINED  l\   3  REAL 

C      FOR  THE  COMPUTER  EMPLOYED 

C        EXAMPLES:  IBM   SIMPLE  PRECISION   NREEL.EQ..1 
C  IBM  DOUBLE  PRECISION   NREEL.EG.2 

C  CDC  NRESL.E3. 1 

DATA  NREEL/2/ 

C 

C COMMON  /LOC/ 

DATA  LXX(1),LXX<2),LXX(3),LXX(4),LXX(5>,LXX(S),LXX(7),LXX!S), 

1  LXX(9),LXX(10),LXX(ll),LXX(i2),LXX(l3),LXXa4),LXX;:5';, 

2  LXX(16),LXX(17),lXX<!8),LXX(19),LXX(20),LXX(21),LXX!£2), 

3  LXX(23),LXX(24),LXX(25)/25*i/ 
END 
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$LARGE 

$NOFLOATCALLS 

$DEBUG 

SUBROUTINE  ERREURdERR,  II,  IE',  INIV) 


C    PRINT  ERROR  MESSAGES  FOR  BLOCKS  READING  DATA 
COMMON/ES/M,  MR,  MP,  HH3WY  (iO) 


C BLOCK  'COOS' 

IFdERR.GT.  19)  GO  TO  200 

IE=IERR-10 

GO  TO  (110, 120, 130, 140, 150, 160,  ISO,  130),  IE 
110  WRITE(MP,2110)U,I2 

2110  FORMAT ('  ***  ERROR,  ^IRST  NODE  NUMBER (',14,')  IS  SREATER  THAN  NNT= 
l',I4) 

GO  TO  900 
120   WRITE(MP,2120)I1,I2 

2120  FORMATC  **  ERROR,  SECOND  NODE  NUMBER (',  14,' )  IS  GREATER  THAN  NNT= 
l',I4) 

SO  TO  900 
130   WRITE (MP, 2130) II, 12 

2130  FORMAT ('  «  ERROR,  NODAL  -NUMBER  OF  D.O.F.  (',14,' )  IS  GREATER  THAN 
1NDLN=' ,  14) 

GO.  TO  900 
140   WRITE(MP,2140) 

2140  FORMAT ('  **  ERROR,  FIRST  AND  SECOND  NODE  NUMBERS  ARE  INCOMPATIBLE 
1UITH  THE  GENERATICN  PARAMETER' ) 

GO  TO  900 
150  WRITE (MP, 2150) II 
2150  FORMAT*'  **  ERROR,  NODE  ',14,'  IS  DEFINED  MORE  THAN  ONCE') 

GO  TO  900 
160   WRITE(MP,2160)Ii 
2160  FORMAT ('  **  ERROR,  NODE  ',14,'  IS  NOT  DEFINED') 

GO  TO  900 
180   WRITE (MP, 2180) 12, II 

2180  FORMAT ('  **  ERROR,  GENERATED  NODES  NUMBER (', 14,' )  IS  LESS  THAN  NNT 
1=',I4) 

GO  TO  900 

C BLOCK  'DLPN' 

200   IF(IERR.GT.29)  GO  TO  300 

IE=IERR-20 

GO  TO  (210,220),  IE 
210   WRITE  (MP,  2210)11,  IS 

2210  FORMAT ('  **  ERROR,  NUMBER  OF  D.O.F.  (',12,')  IS  GREATER  THAN  NDLN* 
l',I2) 

SO  TO  900 
220   WRITE (MP, 2220) 1 1,12 

2220  FORMAT ('  **  ERROR,  -NODE  NUMBER (',  14, ' )  IS  GREATER  THAN 
1NNT=',I4) 


15; 


SO  TO  900 
—    BLOCK  'COND' 


300      IFUERR.8T.39)60  TC  400 

IE=!ERR-30 

SO  TO  (900,320,900), IE 
320  SO  TO  220 

C BLOCK  'PREL' 

400   IFdERR.GT.49)  GO  TO  500 

IE=IERR-40 

SO  TO  (410,900),  IE 
410   WRITE(MP,2410)I1,I2 
2410  FORMAT <'  «*  ERROR,  GROUP  NUMBER  (',13,')  IS  GREATER  THAN  NGPE=',I3 

1) 

SO  TO  900 

C BLOCK  'ELEK' 

500   IF(IERR.GT.59)  GO  T0  900 

IE=IERR-50 

SO  TO  (510, 900, 530, 540, 550, 560, 570) ,  IE 
510  WRITE (MP, 2510)11,12 
2510  FORMAT  ('  **  ERROR,  NUMBER  OF  NODES  (',13,')  IS  GREATER  THAN  NNEL*1 

1,13) 

SO  TO  900 
530  WRITE (MP, 2530)11,12 

2530  FORMAT ('  «  ERROR,  PROPERTY  NUMBER  (',13,')  13  GREATER  THAN  NBPE=' 
,113) 

SO  TO  900 
540  WRITE(MP,2540)I1,I£ 

2540  FORMAT ('  «  ERROR,  6R0UP  NUMBER  (',13,')  IS  GREATER  "MAN  NGRE=',I3 
1) 

60  TO  900 
550  WRITE(MP,2550)I1,I2 

2550  FORMAT  ('  **  ERROR,  ELEMENT  NUMBER  (',14,')  IS  GREATER  THAN  NELT=', 
114) 

SO  TO  900 
560  60  TO  220 
570   WRITE(NP,2570)I1,I2 

2570  FORMAT ('  **  ERROR,  NUMBER  OF  ELEMENTS  (',14,')  IS  GREATER  THAN  NEL 
1T=',I4) 

C END 

900   11=12 

IF<INIV.8E.2)  STOP 

RETURN 

END 
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SUBROUTINE  ESPACEUL0N6,  I  REEL,  TBI,  IDEB) 

C  TO  ALLOCATE  A  SEAL  Gfi  INTEGER  TABLE  IN  ARRAY  Vfl 

C  INPUT 

C  ILONG          LENGTH  OF  THE  'AB.E  TO  BE  ALLOCATED 

C  (IN  REAL  OR  INTEGER  WORDS) 

C  I  REEL          TABLE  TYPE  : 

C  .EQ.0    INTEGER 

C  . EQ. 1    REAL 

C  TBL           NAME  OF  THE  TABLE  <A4) 

C  OUTPUT 

C  IDEB                         TABLE  TO  BE  ALLOCATED  STARTS  IN  VACDE3) 


IMPLICIT  REAL*8(A-H,0-Z) 

CHARACTERS  TBL 

COMMON/ES/M,  MR,  MP,  M)UMMY<  10) 

COMMON/ALLOC/NVA,  I  Vfl,  IVRMfiX,  NREEL,  IDUMfcY 

COMMON  VA(i) 

DIMENSION  KA(i) 

EQUIVALENCE  (VA(1),KA(1)) 

DATA  ZESC/O.DCV 
C 


C CALCULATE  THE  TABLE  LENGTH  IN  REAL  WORDS 

ILGR=ILQNG 

IF  ( I  REEL.  EQ.  0)   ILGR=C  LONG+NREEL-i )  /NREEL 

IVfll=IVft+ILGR 
C CHECK  Ic  ENOUGH  SPACE  IS  AVAILABLE 

IF(IVfll.LE.NVfl)  GO  TO  20 

C AUTOMATIC  EXTENSION  OF  THE  BLflNK  COMMON  IF  CORRESPONDING 

C       SYSTEM  COMMAND  EXIST  ON  THE  COMPUTER  USED 
C    CALL  EXTEND (IVA1,IERR) 
C    IF<IERR.EQ.l)  GO  TO  10 
C    NVA=IVA1 
C    GO  TO  20 

C ALLOCATION  ERROR  (NOT  ENOUGH  SPACE) 

10   URITE(MP,2000)  TBL,IVA1,NVA 

2000  FORMATC  ****  ALLOCATION  ERROR,  TABLE  \A4/'  REQUIRED  SPACE:', 19,' 
1  REAL  WORDS,  AVAILABLE  SPACE: ',19,'  REAL  WORDS') 

STOP 

C ALLOCATE  TABLE 

20   IDEB=IVA+1 

IVA=IVA1 

IF(IVfl.GT.IVftMflX)  IVAMAX=IVA 

IF(M.ST.O)  WRITE  (MP,  2010)  TBL,  IDEB,  IVA1 
2010  FORMAT (60X,' TABLE  ',A4,'  GOES  FROM  VAC, 17,')  TO  VAC, 17,')') 
C INITIALIZE  THE  ALLOCATED  TABLE  *0  ZERO 

I1=IDEB 

IF(IREEL.EQ.O)  I1=(I1-1)*NREEL+1 

I2=I1+ILDNG-1 

IF(IREEL.EQ.O)  GO  TO  40 
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DO  30  1=11,12 
30   VA(I)=ZERO 

RETURN 
40   DO  50  1=11,12 
50   KA(I)=0 

RETURN 

EMD 


SUBROUTINE  VIDEdDEB,  I3£El,TBL) 


C  TO  DELETE  A  TABLE  FROM  VA,  FOLLOWED  BY  COKPflCTINB 

C     INPUT 

C       IDEB  FIRST  POSITION'  OF  TS3LE  TO  BE  DELETED 

C       I REEL         TYPE  OF  TABLE  (SEE  ESPACE! 

C       TBL  NAME  OF  THE  TABLE  (flA) 


IMPLICIT  REAL*8(A-H,0-Z) 
CHARACTERS  TBL 
COMMON/ES/*,  MR,  MP,  MDUMMY  ( 10) 
COMHON/flLLQC/NVft, IVA, IVAMAX, NREEL,  NTBL 
C0MM0N/L0C/LXX(25) 
COMMON  Vfl(l) 


C 

C SEARCH  FOR  THE  FIRST  POSITION  OF  MEXT  TABLE 

I1=IVA+1 

DO  10  1=1, NTBL 

IF(LXX(I).LE.IDEB)  GO  TO  10 

IF(LXX«I).LT.I1)  I1=LXX(I) 
10   CONTINUE 
C SHIFT  ALL  TABLES  AFTER  THIS 

ID=I1-IDEB 

IF(I1.EQ.IVA+1)  GO  TO  40 

DO  20  1=1, NTBL 

IF(LXXd).GT.IDEB)  LXX (I)=LXX (I) -ID 
20   CONTINUE 

DO  30  1=11, 1 VA 

J=I-ID 
30   VA(J)=VA<I) 

C PRINT 

40   IVA=IVA-ID 

IFtM.GT.O)  WRITE  (MP,  2000)  TBL,  ID,  IDEB 
2000  FORMAT (60X, 'DELETED  TfiBLE  ',A4,'  COMPACTING  ',17,'  REAL  WORDS  AFTE 
1R  VAC, 17,')') 

RETURN 

END 
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SUBROUTINE  BLIMAG 


C    TO  CALL  AND  EXECUTE  BLOCK  ' IMfiG' 

C    TO  PRINT  OUT  THE  IMAGE  CF  DATA  CARDS 


IMPLICIT  REAL*8(A-H,0-Z) 
COMMON/ES/M,MR,KP,Ml,MDUMNY(9) 
COMMON/TRVL/CART (20) ,  RDL.MMY  (501 ) ,  NULL 
DATA  ICARTM/W 

IF(Ml.EQ.O)  M=MR 
WRITE (MP,2000) 
2000  FORMAT (///, IX, 'IMflGE  OF  DATA  CARDS' /lX,2a<'=» ), /) 

WRITE (MP, 2005) 
2005  FORMAT!/ 

1  5OX,'C0LUMN      N  U  M  B  E  R',/,13X,'CARD',8J(, 

2  10X,'1',9X,,2',9X,,3,,9X,'V,9X,'5',9X,'6,,9X,'7',9X,'8',/, 

3  12X, 'NUMBER', 8X,8(,!234567S90'),/,i2X,3('-'),bX,S0<'-')> 
ICART=0 

ICART1=0 
10   READ (Ml,  1000, END=30)  CART 
1000  FORMAT (20A4) 

ICART=ICART+1 

ICART1=ICART1+1 

IFUCART1.LE.ICARTK)  SO  TO  20 

WRITE(MP,2010) 
2010  F0RMflT(12X,8(lH-),6X,80(lH-),/, 13X, 'CARD', 9X,8(' 1234567890'),/, 

1  12X,'NUWB£R',8X,9X,'1'.3X,'2\9X,'3',9X,'4',9X,'5',9X,'6', 

2  9X,'7',9X,'8',/,50X,'C  C  l  U  M  N   NUMBER') 
WRITE (MP, 2015) 

2015  FORMAT (1H1,//) 

WRITE  (MP,  2005) 

ICART1=0 
20   WRITE (MP, 2020)  ICART,CART 
2020  F0RMAT(10X,Ii0,6X,20A4) 

GO  TO  10 
30   WRITE (MP, 2010) 

WRITE (MP, 2030! 
2030  F0RMAT(///,51X,'E  N  D   OF   DATA',/,1H1) 

REWIND  Ml 

READ (Ml, 1000)  CART 

RETURN 

END 
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SUBROUTINE  BLCCMT 

C    TO  CALL  AND  EXECUTE  BLOCK  ' COM"' 

IMPLICIT  REAL*8(A-H,Q-Z) 
CHARACTER**  BLANC, CART 
COMMGN/ES/M, MR, HP,  KDUMMY (10) 
COMMQN/TRVL/CART (20) , RDUMMY (511 ) ,  NULL 
DATA  BLANC/'    '/ 
c 

WRITE (MP, 2000) 
2000  FORMAT (//'  COMMENTS'/'  \10('=')/) 

C READ  A  COMMENT  CARD 

10   READ (MR, 1000)  CART 

1000  FORMAT (2CA4) 

C SEARCH  FOR  A  WHOLLY  BLANK  CARD 

DO  20  1=1,20 

IF  (CART  (I).  ME.  BLANC)  BO  TO  30 
20   CONTINUE 

RETURN 
30   WRITE (MP, 2010)  CART 
2010  FORMAT  <1X,20A4) 

GO  TO  10 

END 
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SUBROUTINE  BLCQOR 


C         TO  CftLL  BLOCK  COOR 

C         TO  READ  NODAL  COORDINATES 


IMPLICIT  REAL*8(A-H,0-Z) 

CHARACTER**  TBL 

COMMON/COOR/NDIM,  NOT,  NDLN,  NDLT,  FAC  (3) 

COMMON/ES/M,  MR,  MP,  Ml,  MDUMMYO) 

COMMON/ALLOC/NVA,  IDUMMY  (4) 

COMMON/LOC/LCORG, LDLNC, LDUMMY (23) 

C0MM0N/TRVL/FAC1(3>,IN<3),RDUMMY(517> 

COMMON  VAU) 

DIMENSION  TBL (2) 

DATA  ZERC/O.DO/ 
C 

C+++    THIS  IS  COMMENTED  OUT  BECAUSE  CF  THE  MS  "QRTRAN  CCMP- 
C+++    ILER  BUG  SHICH  WILL  NOT  INITIALIZE  SLARGE  ARRAYS 
C+++    THIS  ARRAY  IS  NOW  INITIALIZED  BY  A  CALL  T3  INITBL  WHICH 
C+++    EXISTS  SOLELY  TO  INITIALIZE  tABlE  NAMES. 
C 

C    DATA  TBL/' CCRG' , ' DLNC  / 
C 

C      HERE  IS  THE  CALL  TO  GET  AROUND  THE  COMPILER  BUG 
C 

CALL  INITBL  (TBL, 'COOR') 
C 

C+++    ALL  OF  THIS  WAS  TO  GET  AROUND  THE  MICROSOFT 
C+++    COMPILER  BUS 
C 


BLOCK  HEADING 


IF(Ml.EQ.O)  M1=MR 

READ(M,1000>  IN,FAC1 
1000  FORMAT  (315, 3F10.0) 
C DEFAULT  OPTIONS 

IF(INU).ST.O)  HMT=IN<1) 

IF(IN(2).GT.O)  NDLN=IN(2) 

IF(IN(3).GT.O)  NDIM=IN<3) 

DO  10  1=1,3 

IF(FAC1(I).NE.ZER0)  FAC(I)=FACI(I) 
10   CONTINUE 
C PRINT  BLOCK  PARAMETERS 

WRITE(MP, 2000)  M, NNT, NDLN, NDIM, FAC, NVfl 
2000  FORMAT!//'  INPUT  OF  NODES  (M=>,  12,' ')'/'  ',18('=')/ 

1  15X,' MAX.  NUMBER  OF  NODES  (NN')=',I5/ 

2  15X,'MAX.  NUMBER  OF  D.O.F.  &ER  NODE    (NDLN>=', 15/ 

3  15X,' DIMENSIONS  OF  THE  PROBLEM        (NDI«)=',I5/ 

4  15X,' COORDINATE  SCALE  FACTORS         (FAC)=',3Ei£.5/ 

5  15X,'U0RKSPACE  IN  REAL  WORDS  (NVA)=',I!0) 


158 


—  ALLOCATE  SPACE 

IF(LCORG.EQ.l)  CALL  ESPflCE(NNT*NDIM,i,TBL(li,LCO] 
IF(LDLNC.EQ.l)  CALL  ESPACE(NNT+l,0,TBLi2;,LDLNC) 

—  EXECUTE  THE  BLOCK 

CALL  EXCCOR  (Vfl  (LC0R6) ,  VA  (LDUC) ) 

RETURN 

END 


SUBROUTINE  EXCOOR(VCORB,KDLNC) 

C    TO  EXECUTE  BLOCK  'COOR' 
C    READ  NODAL  COORDINATES 


IMPLICIT  REAL*8(A-H,0-Z) 

COMMON/COOR/NDIH,  NNT,  NDLN,  NDLT,  FAC  (3) 

CQMNON/ES/M,  MR,  HP,  Mi,MDUMMY  (9) 

COMMQN/TRVL/X1  (3) ,  X2  (3) ,  RDUHMY (515) ,  NULL 

DIMENSION  VCORG(*),KDLNC(*> 

DATA  SPECL/1. 23*56789031/ 

C 

C INITIALIZE  COORDINATES 

I1=(NNT-1)*NDI«+1 

DO  10  I=1,I1,NDIM 
10   VCORG(I)=SPECL 
C READ  NODAL  DATA  CARDS 

IF(M.ST.O)  WRITE  (MP,  2000) 
2000  FORMAT (//'  NODAL  DATA  CARDS'/) 
20   READ(M1,1000)  INI,  XI,  IN2,X2,INCR,  IDLN 
1000  F0RMflT(2(I5,3F10.0),2I5) 

IF(M.GT.O)  WRITE  (HP,  2010)  IN1,X1,IN2,X2, 1.MCR,  IDLN 
2010  FORMAT ('  >>>>>',2(I5,3E12.5),2I5) 

IF(INl.LE.O)  GO  TO  60 

c decode  the  card 

if(inl.gt.nnt)  call  erreur(11,in1,nnt,0) 

if(in2.gt.nnt)  call  erreur(12, in2,nnt,0) 

if(in2.le.o)  in2=ini 

if (idln. st. ndln)  call  erreur (13, idln, ndln, 0) 

if(idln.le.o)  idln=ndln 

if(incr.eq.o)  inc8=1 

i1=(in2-in1)/incr 

i2=in1+i1*incr 

IF(I1.EQ.0)I1=1 

IFUN2.NE.I2)  CALL  ERR£UR(14,  IN2,  IN2,0) 
C GENERATE  NODES  BY  INTERPOLATION 


DO  30  I=1,NDIM 
X1(I)=X1(I)*FAC(I) 
X2(1)=X2(I)*FAC(I) 
30   X2(I)  =  (X2(I)-X1(I))/U 
11=0 
I2=(INl-l)*NDIM+t 
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I3=<incr-d*nd:m 

DO  50  in=ini,:n2,incr 

KDUC<IN+1)=IDLN 

IF  (VC0R6  ( 12) .  NE.  SPECL)  CALL  ERREUR(15,IN,IN,0) 

DO  40  I=1,NDIM 

VC0R6 ( IS) =X1 ( I ) +X£ ( I ) *I 1 
40   12=12+1 

11*11+1 
50   12=12+13 

GO  TO  20 

C CHECK  FOR  KISSING  NODES 

60    I1=NNT*NDIM+1 

12=0 

I3=NNT+1 

DO  90  1=1,  NNT 

Il=Ii-NDI« 

13=13-1 

IF (VCORG(Il) -SPECL)  70,80,70 
70   IF(I2.E0.0)  12=13 

GO  TO  90 
80   IF  ( 12.  EQ.  0)  CALL  ERREUR  ( 16, 13, 13, 0) 

IF(I2.NE.O)  CALL  ERREUR (17, 13, 13, :) 
90   CONTINUE 

IFd2.NE.NWT)  CALL  ERREUR (18, NNT,  12,0) 
C TOTAL  NUMBER  OF  D.O.F. 

NDLT=0 

I1=NNT+1 

DO  100  1=2,11 
100   NDLT=NDLT+KDLNC(I) 
C OUTPUT 

IF(M.LT.2)  GO  TO  120 

WRITE(!«tP,2020) 
2020  F0RKAT(/10X,'N0DE  D.O.F.', 5X,'X', 11X,'Y', liX.'Z' /) 

11=1 

I2=NDIN 

DO  110  IN=1,NNT 

WRITE(WP,2030)  IN,KDLNC(IN+1),  (VCORS(I),  1=11, 12) 
2030  FORMAT  (10X,  215, 3E12. 5) 

I1=I1+NDIM 
110  I2=I2+NDIM 
120   RETURN 

END 
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SUBROUTINE  BLDLPN 

C    TO  CflLL  BLOCK  'DLPN' 

C    TO  READ  NUMBER  OF  D.O.F.  PER  NODE 

IMPLICIT  REAL*8(ft-H,0-Z> 

COMMON/ES/M,  MR,  MP,  Ml,  MDUMMY  (9) 

COMMCN/LOC/LCORG, LDLNC, LDUMKY (23) 

COMMON  Vfl(l) 
c 

IF(Ml.EQ.O)  M1=MR 

WRITE (MP, 2000)  M 
2000  FORMAT!//'  INPUT  OF  D.O.F.  («=',  12,'  )'/♦  \17('=')) 

CALL  EXDLPN(VA (LDLNC) ) 

RETURN 

END 
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SUBROUTINE  EXDLONiKDLNC) 


C    TO  EXECUTE  BLOCK  ' DLPN* 

C    TO  REM)  THE  NUMBER  OF  D.O.F.  PER  NOD: 


C- 


IMPLICIT  REAL*8(A-H,0-Z) 
COMMON/COCR/NDIM,  NNT,  NDLN,  NDLT,  FNULL  (3) 
CCMMON/ES/N,  MR,  MP,  Mi,  KDUWMY  (9) 
COMMON/TRVL/K1 ( 15) , RDUKMY (514) 
DIMENSION  KDLNC!*) 


IF(M.ST.O)  WRITE (MP, 2000) 
2000  FORMAT  (//'GROUP  OF  D.C.F.V) 

C READ  A  GROUP  CARD 

10   READ  (Ml,  1000)  IDLN,  Kl 
1000  FORMAT (1615) 

IF(M.  GT.  0)  WRITE  (MP,  2010)  IDLN,  Kl 
2010  FORMAT  ('  >>>>)',  1615) 

IF(IDLN.LE.O)  SO  TO  40 

IF  < IDLN.  ST.  NDLN)  CALL  ERSEUfl  (21,1  DLN,  NDLN,  1 ) 


c 

—  STORE  D.O.F.  .NUMBERS 

20 

DO  30  1=1,15 

J=K1(I) 

IF(J.LE.O)  GO  TO  10 

IF(J.GT.NNT)  CALL  ERR£UR(22,  J,NN7, 1) 

30 

KDLNC(J+1)=IDLM 

READ(M1,1010)  Kl 

1010 

FORMAT (5X, 1515) 

IF(M.GT.O)  WRITE (MP, 2020)  Kl 

2020 

FORMATC  )>>»', 5X,  1515) 

GO  TO  20 

C 

—  TOTAL  NUMBER  OF  D.O.-. 

40   NDLT=0 

J=NNT+1 

DO  50  1=2, J 
50   NDLT=NDLT+KDLNC(I) 

RETURN 

END 


162 


SUBROUTINE  B-CDND 


L.— 


C    TO  CALL  BLOCK  'CONS' 

C    TO  READ  BOUNDARY  CONDITIONS  AND  GENERATE  TABLE  (NSQ) 

IMPLICIT  REAL*8(A-H,0-Z) 

CHARACTERS  TBI 

COWQN/COOfi/NDIM,  NNT,  NDLN,  NDLT,  FNULl  (3) 

COMMON/COND/NCLT,  ICLZ,  NCLNZ 

COMMON/ALLQC/NVA,  IVA,  IDUMMY  (3) 

CDMMDN/ES/M,MR,MP,M1,MDUMMY(S) 

COMMGN/LOC/LCQRG,  LDLMC,  LNEQ,  L.DIMP,  LDUMMY  (21 ) 

COMMON  Vfl(l) 

DIMENSION  TBL(2) 
C 

C+++    THIS  IS  COMMENTED  OUT  BECAUSE  0-  THE  *S  FORTRAN  COMP- 
C+++    ILER  BUS  WHICH  WILL  NOT  INITIALIZE  CLRRBE  ARRAYS 
C+++    THIS  ARRAY  IS  NOW  INITIALIZED  BY  A  CAL^  TO  INITBL  WHICH 
C+++    EXISTS  SOLELY  TO  INITIALIZE  TABLE  NA*ES. 
C 

C    DATA  TBL/'NEQ  ','DIMPV 
C 

C      HERE  IS  THE  CALL  TO  BET  AROUND  THE  COMPILER  BUG 
C 

CALL  INITBL(TBL,'CGND') 
C 

C+++    ALL  THIS  WAS  SIMPLY  TO  GET  AROUND  THE  MICROSOFT 
C+++    COMPILER  BUG 
C 
C 

IF(Ml.EQ.O)  M1=MR 

WRITE (MP, 2000)  M 
2000  FORMAT)//'  INPUT  OF  BOUNDARY  CONDITIONS  («=', 12,' )'/'  ', 
1  33('=')/) 

IF(LNEQ.EQ.l)  CALL  ESPACE(NDLT,0,TBL(1),LNEQ) 

IF(LDIMP.EQ.l)  CALL  ESPACE(NDLT, 1,TBL(2),LDIMP) 

CALL  EXCOND(VA(LCORG) , VA(LDLNC) , VA(LNEQ) , VA(LDIMP) ) 

CALL  VIDE(LDIMP+NCLT,1,TBL(2)) 

RETURN 

END 
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SUBROUTINE  EXCDND ( VC0R3, KDLNC, KNEQ, VDIMP) 


C    TO  EXECUTE  BLOCK  'COND' 

C    READ  BOUNDARY  CONDITIONS  AND  GENERALS  TABLE  (NEC) 


IMPLICIT  REAL#8  (fl-H,  0-2) 

COMKQN/COOR/NDIM,  NNT,  NDLN,  NDLT,  FNULLO) 

COMMON/COND/NCLT,  NCLZ,  NCLNZ 

COMMGN/RESQ/NE3,NFILLR(2) 

COMMON/ES/M, MR, HP, Ml, MDUMMY (3) 

COMMON/TRVL/  KV(16),V<10),H<20>,ICQD(10),RDUMMY(473),NiULL 

DIMENSION  VCOfiB<*), KDLNC (*),KNEQ(#), VDIMP (*) 

DATA  L7/7/,  L8/8/,  L16/16/  ,  X 1/0.  ODO/,  X2/0.  ODO/,  X3/0.  ODO/,  ZsRQ/O.  DC/ 

C CUMULATIVE  TABLE  KDLNC 

DO  10  IN=1,NNT 
10   KDLNC(IN+1)=KDLNC(IN)+KDLNC(IN+1) 

I1=NNT+1 

IFW.SE.2)  wRITE (MP, 2000)  (KDLNC(IN),  IN=1,  II) 
2000  FORMAT (//'  NUMBER  OF  D.Q.F.  PRECEDING  EACH  NODE   (DLNC)V 

1  (1X,10I10)) 
C INITIALIZE 

NCLT=0 

NCLNZ=0 

NCLZ=0 

IF(M.SE.O)  WRITE  (MP,  2010) 
2010  FORMAT*//'  BOUNDARY  CONDITIONS  CARDS'/) 

C READ  A  B. C.  GROUP  CARD  :  10  CODES  +  PRESCRIBED  VAL. 

20   READ(M1,1000)  ICOD,  (V(I),  I=t,L7) 
1000  F0RMAT(10I1,7F10.0) 

IF(M.SE.O)  WRITE  (MP,  2020)  ICOD,  (VC),  1=1,  L7) 
2020  FORMATC  >>))>', 1011, 7E12.5) 
C CHECK  FOR  A  BLANK  CARD 

J=0 

DO  30  1=1,10 
30   J=J+ICOD(I) 

IF(J.EQ.O)  GO  TO  110 
C READ  ADDITIONAL  CARD  IF  REQUIRED 

12=0 

DO  40  ID=1,NDLN 

IF(IC0D(ID).LT.2)  SO  TO  40 

12=12+1 

IF(I2.NE.L8)  GO  TO  40 

READ  (Ml,  1010)  (V(I),I=L8,NDLN) 
1010  FORMAT (10X,7F10.0) 

IF(M.GE.O)  WRITE  (MP,  2030)  (V(I),I=L8,,MDLN) 
2030  FORMATC  >)>>>',  10X,7E12. 5) 
40   CONTINUE 

C —  READ  NODE  CARDS 

50   READ  (Ml,  1020)  (KV(IN),  IN=1,L16) 
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1020    FCRKfiT(16I3) 

IF(M.SE.O)  HRITE<MP,2M0)    (KV!IN),IN=1,L16) 
2040    FORMAT*'  >>>>>', 10X, 1615) 
C FORM  NEQ 

DO  100  IN=1,L16 

I2=KV(IN) 
C END  OF  GROUP  OF  B.C.  OR  END  OF  NODES  CR  ANALYSIS  OF  q  NODE 

IF (12)  20,20,60 
60   IF(I2.ST.NNT)  CALL  ERREUR (32,12, NNT,  1) 

I1=KDLNC(I2) 

IDN=KDLNC(I2+1)-I1 
C GENERATE  VDIMP,  PUT  IT  IN  XNEQ  (THE  PRESCRIBED  D.O.F.  BDDRESS) 

IV=0 

DO  90  ID=1,IDN 

11=11+1 

IC=IC0D(ID)-1 

IF  (10  90,70,80 
70   NCLT=NCLT+1 

VDIMP (N€LT)=ZERO 

NCLZ=NCLZ+1 

KNEQ(I1)=-NCLT 

GO  TO  90 
80   NCLT=NCLT+1 

IV=IV+1 

VDIMP  (NaT)  =V(  IV) 

NCLNZ=NCLNZ+1 

KNEQ(I1)=-\:CLT 
90   CONTINUE 
100  CONTINUE 
C ADDITIONAL  CARD  0?  NODE  NUMBERS 

GO  TO  50 

C GENERATE  EQUATION  NUMBERS  IN  NEQ 

110   11=0 

DO  150  IN=1,NNT 

ID=KDLNC(IN) 
120   ID=ID+1 

IF(ID.GT.KDLNC(IN+1>)  GO  TO  150 

IF(KNEQdD))  120,130,120 
130   11=11+1 

KNEQ(ID)=I1 

BO  TO  120 
150      CONTINUE 

NEQ=I1 
C OUTPUT 

IF(M.LT.O)  GO  TO  170 

WRITE  (MP,  2050)  NNT,  NDLT,  NEQ,  NCLNZ,  NCLZ,  NCLT 
2050  FORMAT*// 

1  15X,' TOTAL  NUMBER  OF  NODES  (NNT) =',15/ 

2  15X, '  TOTAL  NUMBER  OF  D.  0.  F.  (NDLT)  =' ,  15/ 

3  15X, 'NUMBER  OF  EQUATIONS  TO  BE  SOLVED         (NEQ)=\I5/ 

4  15X,'NUMBER  OF  PRESCRIBED  NGN  ZERO  D.O.F.      <NCLNZ)=',  15/ 
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5  15X,'Wl«BER  OF  PRESCRIBED  ZERO  D.C.F.        (nCLZ)=',I5/ 

6  15X, ' TOTAL  NUMBER  OF  PRESCRIBED  D. 0. F.        (NClT)=' ,  15/) 
IF(H.6E.2.AND.NCLT.GT.O)  WRITER, £060)  (VDIHPU),Isl,iCLT) 

2060  FORMAT (//'  PRESCRIBED  VALUES  (VDIHP)'//(IOX,10El2.5)i 

WRITE (MP, 2070) 
2070  FORMAT!//'  NODfiL  COORDINATES  ARRAY'// 

1  '   NO  D.  L. ' ,  5X, '  X' ,  12X, » Y' ,  12X, '  Z' ,  10X, '  EQUATION  NUMBER 
2(NEQ)'/) 

12=0 

DO  160  IN=1,NNT 

11=12+1 

I2=I2+NDIM 

IDl=KDLfJC(IN)+l 

ID3=KDLNC(IN+1) 

ID=ID2-ID1+1 

IFUDS.LT.  ID1)  ID3=ID1 

X1=VC0RG<I1) 

IF(NDIM.G£.2>  xa=VCQR6Ui+l) 

IF(NDIM.SE.3)  X3=VC0R6(Il+2) 
160     WRITE  (MP,  2080)  IN,  ID,X1,X2,X3,  (KNEQ(I),  I=ID1,  IDS) 
2080    FORMAT (IX, 215, 3E1 2. 5, 10X,  1016) 
170      RETURN 

END 
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SUBROUTINE  BLPRND 

C    TO  CALL  BLOCK  »PRND' 
C    TO  READ  NODAL  PROPERTIES 

IMPLICIT  REAL*8(A-H,G-Z) 
CHARACTER**  TBL 

CQWQN/COQR/NDIM,  NNT,  NNULL(2) ,  FNULU3) 
COMMON/ PRND/NPRN 
CGMMON/ES/M,  MR,  MP,  B1,MDU«HY  (3) 
COMMON/LOC/LXX  (4) ,  LPRNG,  LDUMMY(20) 
COMMON  Vfl(l) 
DATA  TBL/' PRNG' / 

IF(Ml.EQ.O)  M1=MR 

READ  (Ml,  1000)  NPRN 
1000    FORMAT (15) 

WRITE  (MP,  £000)  M,NPRN 
2000    FORMAT(//'   INPUT  OF  NODAL  PROPERTIES  (»=' ,  12, » ) ' /'  !,30<'=')/ 
1     15X,' NUMBER  OF  PROPERTIES  PER  NODE        (NPRN)  =\  15) 

IF  (LPRNG.  EQ.1)  CALL  ESPACS(NNT#?iD!?\|,  1,  TBL,  LPRNG) 

CALL  EXPRND(VA (LPRNG)) 

RETURN 

END 


SUBROUTINE  EXPRND(VPRNG) 

C         TO  EXECUTE  BLOCK  'PRNTj' 
C         READ  NODAL  PROPERTIES 


IMPLICIT  R£AL*8(A-H,0-Z) 
COMMaN/C00R/NDIM,NNT,NNULL(2),FNULL(3) 
COMMON/ PRND/NPRN 
COMMON/ES/M,  MR,  MP,  Ml, MDUMMY  (9) 
DIMENSION  VPRNG(*) 


C READ  PROPERTIES  NCDEWISE 

I1=NNT*NPRN 

READ  (Ml,  1000)  (VPRNG(I),  1=1,  ID 
1000    FORMAT (8F10.0) 

IF(M.GE.O)  WRITE  (MP,  2000)   (VPRNG(I),  1=1,  ID 
2000    FORMAT (//'  CARDS  OF  NODAL  PROPERTIES'/  ('  >>)>)' ,8E12. 5) ) 

RETURN 

END 
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SUBROUTINE  BLPREL 


b- 


C         TO  CfiLL  BLOCK  ' PREL' 

C         TO  READ  ELEMENT  PROPERTIES 


IMPLICIT  REAL*8(A-H,0-Z) 

CHARACTER*4  TBL 

COMKGN/PREL/NSPE,NPRE 

COMMON/ES/M,  MR,  HP,  HI,  MDURHY  (3) 

COMMON/LOC/LXX (5) , LPREB, LDUWMY ( 19) 

COMMON/TRVL/ IN (2) , RDUtfMY (520) , NULL 

COMMON  Vfl(l) 

DIMENSION  TBL (2) 
C 

C+++    PHIS  IS  CO*!MENiTED  OUT  BECAUSE  OF  THE  MS  -CRTRAN  CCMP- 
C+++    ILER  BUG  SHICH  WILL  *0T  INITIALIZE  $LARSE  ARRAYS 
C+++    THIS  ARRAY  IS  NOW  INITIALIZED  BY  A  CftLL  'Q   INITBL  WHICH 
C+++    EXISTS  SOLELY  TO  INITIALIZE  TQBlE  NAMES. 
C 

C    DATA  TBL/' PREG','V   '/ 
C 

C      HERE  IS  THE  CALL  TO  GET  AROUND  THE  COMPILER  BUG 
C 

CALL  INIT8L(TBL,'PREL'> 
C 

C+++    ALL  THIS  WAS  SIMPLY  TO  SET  AROUND  THE  MICROSOFT 
C+++    COMPILER  BUG 
C 
C 

IF(Ml.EQ.O)  »1=MR 
C READ  NUMBER  OF  GROUPS  AND  PROPERTIES  PES  GROUP 


READ (Ml, 1000)  IN 
1000  FORMAT (215) 

IF(INU).BT.O)  NGPE=IN(1) 

IFUN(2).GT.O)  NPRE=IN(2> 

WRITE (MP, 2000)  N,NSPE,NPRE 
2000  FORMAT (//'  INPUT  OF  ELEMENT  PROPERTIES  («=', 12,' )' /'  ', 

1  35('=')/15X, 'NUMBER  OF  GROUPS  OF  PROPERTIES   (NSPE)=\I5/ 

2  15X,' NUMBER  OF  PROPERTIES  PER  GROUP  (NPREi=',I5) 
IF(LPREG.EQ.l)  CALL  ESPACE(NGPE#NPRE, :, TBL (1), LPREB) 
CALL  ESPACE(NPRE,1,TBL(2),L1) 

CALL  EXPREL(VA(LPREG),VA(LD) 
CALL  VIDE(L1,1,TBL<2)) 
RETURN 
END 
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SUBROUTINE  EXPRS:_(VPREG, VI 3 

C    TO  EXECUTE  BLOCK  ' PREL' 
C    READ  ELEMENT  PROPERTIES 


IMPLICIT  REAL*8(A-H,0-Z) 
CQMM3N/PREL/NGPE,NPRE 
COMMCN/ES/M,  MR,  MP,  Ml,  MDUiW  (9) 
DIMENSION  VPREG(*),V1(*) 


IF(M.GE.O)  WRITE  (MP,  2000) 
2000  FORMAT (//'  CARDS  OF  ELEMENT  PROPERTIES'/} 
C READ  A  SROUP 

I1=MN0(7,NPRE) 

J=l 
10   READ(M1,1000)  ISPS,  (Vl(I),  1=1,  ID 
1000  F0RMAT(I5,7F10.0) 

IF(M.6E.O)  WRITE MP, 2010)  IGPE,  (VI  (I),  1=1,  ID 
£010  FORMAT  ('  >>>>>', 15, 7E12. 5) 

IF(IBPE.LE.O)  SO  TO  40 

IF(IGPE.GT.NGPE)  CALL  ERREUR(41,  I6?S,SGPE,  1) 

IF(NPRE.LE.7)  GO  TO  20 
C READ  THE  PROPERTIES 

READ  (Ml,  1010)  (VKI),I=8,NPRE) 
1010  F0RMAT(5X,7F10.0) 

IF(M.GE.C)  WRITE  (MP,  2020)  (VHI),  I=8,NPRE) 
2020  FORMAT  ('  >>)))',5X,7E12.5) 
20   DO  30  I=1,NPRE 

VPREG(J)=V1(I) 
30   J=J+1 

GO  TO  10 
40   RETURN 

END 
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SUBROUTINE  8LELEM  ■ 

C    TO  CALL  BLOCK  'ELEM' 
C    TO  READ  ELEMENT  DATA 

IMPLICIT  REAL*8(A-H,Q-Z) 

CHARACTER  TSL 

COMMON/COOR/NDIM,  NNT,  NDLN,  MNULL,  FNULL (3) 

COMMON/PRND/NPRN 

COMMON/PREL/NJGPS,  NPRE 

COMMON/ELEM/NELT, NNEL, NTPE,  NBRE,  WE,  N I DENT,  NPB 

COMMON/ASSE/NSYM,NKG,MFIL-R<2) 

COMMON/ RESO/NEG, NFILLR (2) 

COMMON/ES/M,  MR,  MP,  Ml,  MS,  MDUMMY 13) 

COMMON/LOC/LCORG,  LDLNC,  LNEG,  LDINP,  L?RNG,  LPREG,  LLD,  LLDCE,  LCORE,  LNE, 
1  LPRNE,  LPREE,  LDLE,  LKE,  LFE,  LK6S,  LKGD,  LKBI,  ^FS,  LRES,  LDU8MY  (5) 

COMMON  Vfl(l) 

DIMENSION  TBL(6),IN<6) 
C 

C+++    THIS  IS  COMMENTED  OUT  BECAUSE  OF  THE  MS  FORTRAN  COMP- 
C+++    ILER  BUG  SHICH  WILL  NOT  INITIALIZE  $LARSE  ARRAYS 
C+++    THIS  ARRAY  IS  MOW  INITIALIZED  BY  A  CflLL  TO  INITBL  WHICH 
C+++    EXISTS  SOLELY  TO  INITIALIZE  TABLE  NAMES. 
C 

C    DATATBL/'LD  ' , ' LOCE' , ' CORE' , ' NE  ' , ' PRNE' , ' PREE' / 
C 

C      HERE  IS  THE  CALL  TO  GET  AROUND  THE  COMPILER  BUG 
C 

CALL  INITBL (TBL,'ELEM') 

C 

C+++    ALL  THIS  WAS  SIMPLY  TO  GET  AROUND  THE  MICROSOFT 

C+++    COMPILER  BUG 

C 

c 

IF(Ml.EQ.O)  H1=MR 

IF(M2.EQ.O>  M2=ME 

READ(Ml,10O0)IN 
1000  FORMAT (615) 

IFUN(l).GT.O)  NELT=IN(1) 

IF(IN(2).GT.O)  NNEL=IN(2) 

IF(IN(3).GT.O)  NTPE=IN<3) 

IF(IN(A).6T.O)  NSRE=IN(4) 

IF(IN(5).NE.O)  NSYM=1 

IF(IN(6).NE.O)  NID£N7=1 

WRITE  (MP,  2000)  M,  NELT,  NNEL,  NTPE,  NGRE,  NSYM,  NIDENT 
2000  FORMAT!//'  INPUT  OF  ELEMENTS  (M=\  12, ' )'/'  ',20('=')/ 

1  15X,' MAX.  NUMBER  OF  ELEMENTS         (NELT)=',I5/ 

2  15X,' MAX.  NUMBER  OF  NODES  PER  ELEMENT   (NNEL) =',15/ 

3  15X, 'DEFAULT  ELEMENT  TYPE  (NTPE) =',15/ 

4  15X, '  NUMBER  OF  GROUPS  OF  ELEMENTS      (NGRE)  =' ,  15/ 
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5  15V INDEX  FOR  NON  SYMMETRIC  PROBLEM        (NSY«)=',I5/ 

6  15X, ' INDEX  FOR  IDENTICAL  ELEMENTS  (NIDENT)=',I5/) 
IF(LLD.EQ.l)  CALL  ESPACE(NEG+1,0,TBLU),LLD) 
IF(i_LOCE.EQ.l)  CAL_  ESPACE(NNEL*NDLN,0,TBL(2),^OCE) 
IF(LCORE.EQ.i)  CALL  ESPflCE«Ni€L«NDIM,l,TBL(3),LC0RE) 
IFfiJCEQ.1)  CALL  ESPACE(NNEL,0,TBL(4),LNE> 

IFfNPRN. GT. 0.  AND.  LPRNE.  EQ.  $ )  CALL  ESPACE (NNEL*NPRN,  1,  TBL (5) ,  LPRNE) 
IF (NPRE. GT. 0. ftND. LPREE. £Q.  1 )  CALL  ESPflCE(NPRE,l,TBL<S),LPREE) 
CALL  EXELEM(VA(LCORG) , Vfl(LDLNC) , VA(LPRNG) , VA(LPRES) , VAdLCCE; , 
1  VA (LCORE) ,  VA (LNE) ,  VA (LPRNE) ,  Vfl  (LPREE) ,  VA  (LNEQ) ,  VA (LLD) ) 

WRITE  (MP,  2010)  NKG,NPG 
2010    FORMAT (15X,' LENGTH  OF  A  TRIANGLE  IN  KG  (NKG)=',I10/ 

1  15X,'NUMBER  OF  INTEGRATION  POINTS  (NPG)=',I10/) 

RETURN 
END 


SUBROUTINE  EXELEM(VCORG,  KDLNC, VPRNG,  VPRE3,  KLCCE,  VCORE,  KNE,  VPRNE, 
1  VPREE,KNEQ,KLD) 


C== 


C    TO  EXECUTE  BLOCK  'ELEM' 

C    READ  ELEMENTS  DATA 

C —      ====== 


IMPLICIT  REAL*8(A-H,0-Z) 

COMMON/COOR/NDIM,  NNT,  MULL  (2) ,  FNULL (3) 

COMMON/ PRND/NPRN 

COMMON/PREL/NGPE,NPRE 

COMMON/ELEM/NELT,  NNEL,  NTPE,  NGRE,  ME,  N I  DENT,  NPG 

COMMON/ASSE/NSYM,  NKG,  NKE,  NDLE 

COMMON/RGDT/IEL,  ITPE,  ITPEi,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDES,  IPG 
1  ,ICOBE,IDLE0,INEL0,IP6O 

COMMON/RESO/NEQ,  Nf  ILLR(2) 

COMMON/ES/M,  MR,  MP,  M 1 ,  K£,  MDUKMY !  8 ) 

DIMENSION  VCORG«), KDLNC (*),VPRNS(*),VPREG(*),KLOCE(*), VCORE (*), 
1        KNE(*>,VPRNE(*),VPREE<*),KNEQ(*),KLD<*) 

DATA  110/10/, 115/15/ 


C 

C INITIALIZE 

OPEN (MS, FILE*1 $$002.  DAT' , STATUS=' NEW' ,  FORM=' UNFORMATTED' 1 

NDLE=0 

IELT=0 

NPG=0 

REWIND  ME 

IF(M.GT.O)  WRITE  (MP,  2000) 
2000  FORMAT (//'  ELEMENTS  CARDS'/) 

C READ  AN  ELEMENT  CARD 

10   READ(M1,1000)  IEL,  IGEN,  INCR,  ITPE,  IGPE,  IGRE,  (KNE(IN),  IN=1, 110) 
1000  FORMAT (1615) 

IF(M.GT.O)  WRITE  (MP,  2010)  IEL,  IGEN,  INCR,  ITPE,  IGPE,  IGRE, 
1  (KNE(IN),IN=1,I10) 

2010  FORMAT!'  ))>>>', 1615) 
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IF(IEL)  80,60,20 

C NUMBER  OF  MODES  AND  ADDITIONAL  CARDS  AS  REQUIRED 

20        INEL=0 

11=1 

12=110 
30        DO  40  IN=I1,I2 

IF(KNEUN).EQ.O)  BO  TO  50 

INEL=INEL+1 
40        CONTINUE 

11=12+1 

12=11+115 

READ (Ml, 1000)    (KNE(IN),IN=I1,I2) 

IF(M.6L0)  WRITE(MP, 2010)    (KNE(IN),  IN=I1, 12) 

SO  TO  30 

C CHECKING 

50        IFUNEL.GT.NNEL)  CALL  E3RBJR<51,INEL,NNEL,i) 

IF(INCR.EQ.O)  INCR=1 

IF(ITPE.EQ.O)   ITPE=NTPE 

IF(IGPE.ST.NGPE)  CALL  ERREUR(53,I5?E,N3?E,  1) 

IF(ISPE.EQ.O)   IGPE=1 

IF(IGRE.GT.NGRE)  CALL  ERREUR<54, I3RE,NGRE,  i) 
C ELEMENT  GENERATION 

IF(IGEN.EQ.O)  IGEN=1 

DO  70  IE=1,IG£N 

IF(IEL.GT.NELT)  CALL  ERREUR(55,  I£L,  S'ELT,  1) 
C GENERATE  KLOCE  AND  UPDATE  KLD 

CALL  LCCELD(KDLNC,  KNE,  KNEQ,  KLOCE,  KLD) 
C GENERATE  ELEMENT  COORDINATES  AND  PROPERTIES 

CALL  XTRELMdGPE,  VCCRG,  VPRNS,  VPREG,  KNE,  VCCRE,  VPR-ME,  VPREE) 
C CHECK  ELEMENT  NODE  NUMBERS  AND  D.O.F. 

IPG0=O 

ICCDE=1 

CALL  ELEMLB(VCORE,  VPRNE, VPREE, VDLE, VKE, VFE) 

IFdNEL.EQ.  INELO.  AND.  IDLE. EQ.IDLEO)  GO  TO  55 

WRITE(MP,2020)  IEL,  INa,  INELO,  IDlE,  IDLSO 
2020  FORMATC  **  ELEMENT , 15, '  INCONSISTENT' /5X,' INEL=',  14,'  INEL0=',I5 
1/  5X,'IDL£=',I5,'  IDLE0=',I5) 

C UPDATE  TOTAL  NUMBER  OF  INTEGRATION  POINTS 

55   NPG=NPG+IPS0 

C STORE  ON  ELEMENT  FILE 

CALL  WRELEM(M2, KLOCE, VCORE, VPRNE,  VPREE, KNE) 

IELT=IELT+1 
C PRINT  ELEMENT  CHARACTERISTICS 

CALL  PRELEMJKLQCE, VCCRE,  VPRNE,  VPREE,  KNE) 
C NEXT  ELEMENT  TO  BE  GENERATED  OR  READ 

DO  60  IN=1, INEL 
60   KNE(IN)=KN£(IN)+IfO 

IFHDLE.GT.NDLE)  NDLE=IDLE 
70        IEL=IEL+1 

GO  TO  10 
C CHECK  IF  TOTAL  NUMBER  OF  ELEMENT  IS  EXCEEDED 
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80       IF(IELT.NE.NElT)  CftLLERRBJR<57,I&T,NELT,l) 


r. 


PRINT  BAND  HEI6HTS 


IMA=0 

IM0=0 

I1=NEQ+1 

DO  90  1=2,11 

J=KLD(I) 

IF(J.ST.IMA)IMA=J 
90        IMO=IMC+J 

C=IMO 

C=C/NED 

WRITE (MP, £030!  C, IMP 
2030    F0RHftT(/t5VMEflSf  BflND  HEISHT=',F8.1,'  MftXIMUM=» ,  15) 

IF(«.SE.2)  WRITE (MP,  2040)   (KLD(I), 1=1, ID 
2040    FOMHTC//1  TABLE  OF  BflND  HEIGHTS' /COX, 2015)) 
C TRANSFORM  KLD  INTO  ADDRESSES  OF  COLUMN  TOP  TERM 

IF (NSYM. ED. 0)  NKE= ( NDLE* ( NDLE+1 ) ) /2 

IF  (NSYM.  ED.  1 )  NKE=NDLE*NDLE 

KLD(D=1 

DO  100  ID=2,I1 
100   KLD(ID)=KLD(ID-D+KLD(ID) 

NKG=KLD(ID-1 

IF01.SE.2)  MITE  (MP,  £050)  (KLD(ID),  ID=1,  ID 
2050  FORMAT (//'  TABLE  OF  ADDRESSES  OF  COLUMN  TOP  TERMS  (LD)V 
1        (10X,20I6D 

RETURN 

END 
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$LARGE 
INOFLOfiTCflLLS 

SUBROUTINE  LOCELD  <KDOC, KNE, KNEQ,  KIOCE, KLD) 


C    TO  FORM  THE  ELEMENT  LDCfiLIZRTION  TfiBLE  (LOGS) 
C    AND  UPDfiTE  COLUMN  HEIGHTS  cOR  A  GIVEN  ELEMEN" 


REAL*8  FNULL 

COMMON/COOR/NDIM,  NNT,  NNULL  (2) ,  FNULL  (3) 

COMMON/RGDT/NUL (4) , IDLE, NUL1 (3) , INEL, I DUMMY (6) 

DIMENSION  KDLNC(*),KNE(*),KNEO(*),KLOCE(*),KLD(*) 

DATA  NDLMAX/32000/ 

C 

C GENERATE  KLCCE  FROM  KNEQ 

IDLE=0 

LOCMIN=NDLMAX 

DO  £0  IN=1, INEL 

INN=KNE(IN) 

IF (INN. GT. NNT)  CALL  ERREUR(56,IMN,NNT,1) 

IEQ=KDLNC(INN) 

IEQ1=KDLNC(INN+1) 
10  IF(IEQ.GE.IEQl)  GO  TO  20 

IEQ=IEQ+1 

IDLE=IDIE+1 

J=KNEQ(IEO) 

KLOCE(IDLE)=J 

IF  (J.  LT.  IQCMIN,  AND.  J.  GT.  0)  '_DCMI\!=J 

GO  TO  10 
20  CONTINUE 
C UPDATE  TABLE  OF  COLUMN  HEIGHTS  (KLD) 

DO  30  ID=1,IDLE 

J=KLOCE(ID) 

IF(J.LE.O)  GO  TO  30 

IH=J-LOCMIN 

IF(IH.GT.KLD(J+1))KLD(J+1)=IH 
30  CONTINUE 

RETURN 

END 
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SUBROUTINE  XTRELWIGPE,  VCCRS,  VPRNG,  VPRE3,  KVE,  VCGRE,  V^RNE,  VPREE) 

C    TO  GENERATE  ELEMENT  COORDINATES  AND  PROPERTIES  FRGM 

C    GLOBAL  ARRAYS 

C    (ISPE:  GROUP  NUMBER  FOR  ELEMENT  PROPERTIES) 


IMPLICIT  REAL*8(fl-H,0-Z) 
COMMON/COOR/NDIM,  NNULL (3) ,  FNULL (3) 
CQMMON/PRND/NPRN 
COWMON/PREL/NSPE,NPRE 

COKMON/RGDT/NUL(5),  ICE,  IPRNE, IPREE,  INEL,  IDU8MY(6) 
DIMENSION  VCORG(*) , VPRNGt*) , VPREGU) , KNE (*) , VCDRE(*) , 
1  VPRNE(*),VPREE(*) 
c 

C GENERATE  ELEMENT  COORDINATES 

IPRNE=0 

ICE=0 

DO  30  IN=1, INEL 

IC=<KNE(IN)-1)«NDIM 

DO  10  I=1,NDIM 

ICE=ICE+1 

IC=IC+1 
10  VCORE(ICE)=VCCRG(IC) 
C GENERATE  ELEMENT  NODAL  PROPERTIES 

IF(NPRN.EQ.O)  60  T0  30 

IC=(KNE(IN)-1)*NPRN 

DO  20  I=1,NPRN 

IPRNE=IPRNE+1 

IC=IC+1 
20  VPRNE(IPRNE)=V?RNG(IC) 
30  CONTINUE 
C GENERATE  ELEMENT  PROPERTIES 

IPREE=0 

IF(NPRE.EQ.O)  GO  TO  50 

IC=(IGPE-1)*NPRE 

DO  AO  I=1,NPRE 

IPREE=IPREE+1 

IC=IC+1 
40  VPREE( IPREE) =VPR£G(IC) 
50   RETURN 

END 
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SUBROUTINE  PRELEMKLOCE,  VCORE,  VPRME,  VPREE,  KN'E) 


C    PRINT  DATA  DEFINING  AN  ELEMENT 


IMPLICIT  REAL*8(A-H,C-Z) 

COMMON/PRND/NPRN 

COMMON/PREL/NGPE,  NPRE 

COMMON/RGDT/IEL,  ITPE,  ITPE1,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  NULL(S3 

COMMON/ES/M,  MR,  MP,  MDUMMY  (10; 

DIMENSION  XLCCE(*),VCORE(*),VPRNE(*),VPREE!*),KNE(*) 


IF(M.SE.O)  WRITE  (MP,  2000)  IEL,  ITPE,  INEL,  IDLE,  IPRN£,  IPREE,  IGRI 
2000  FORMATdOX, 'ELEMENT:',  15,'  TYPE:', 12,'  N.P.:',I2,'  D.O.F.:', 
1  13,'  N.  PROP: ',13,'  EL.  PROP:',  13,'  GROUP:',  13) 

IF(M.GE.O)  WRITE (MP, 2010)  (KNE(I), 1=1, INEL) 
2010  FORMAT (15X,' CONNECTIVITY  (NE)\ 2015/ (32X, 2015)) 

IF(M.LT.l)  60  TO  10 

WRITE  (MP,  2020)  (KLXE(I),  1=1,  IDLE) 
2020  FORMAT (15X,'L0CALIZATN  (LOCE)', 2015/ (32X, 2015)) 

WRITE (MP, 2030)  (VC0RE(I),I=1,  ICE) 
2030  F0RMAT(15X,'C00RDINATES(C0RE)',8E12.5/(32X,8E12.5)) 

IF(NPRN.GT.O)  WRITE (MP, 2040)  (VPRNE(I), I=1,IPRNE) 
2040  FORMAT (15X,' NOD. PROP.  (PRNE)' ,8Ei2.5/(32X,8El2.5)) 

IF (IPREE. 6T.0)  WRITE (MP, 2050)  (VPREE(I), 1=1, IPREE) 
2050  FORMAT (15X,'ELEM.  PROP. (PREE)',8E12.5/(32X,8E12.5) ) 
10   RETURN 

END 


SUBROUTINE  WREL£M(ME, KLOCE, VCORE, VPRNE, VPREE, KNE) 


C= 

C 

C= 


IMPLICIT  REAL*8(A-H,Q-Z) 

COMMON/RGDT/IEL,  ITPE,  ITPE1,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,NULL(6) 

DIMENSION  KLOCE(*),VCORE(*),VPRNE(*),VPREE(*),KNE(*) 

IPRNE1=IPRNE 

IF(IPRNEl.EQ.O)  IPRN£1=1 

IPREE1=IPREE 

IF(IPREEl.ED.O)  IPREE1=1 

WRITE (ME) IEL,  ITPE, IGRE,  IDLE, ICE, IPRNE1, IPREE1, INEi, 

1  (KLOCE(I) ,1=1, IDLE), (VCQRE(I), 1=1,  ICE), 

2  (VPRNE(I),I=1,IPRNE1),(VPREE(I),I=1,IPREE1), 

3  (KNE(I),  1=1,  INEL) 
RETURN 

END 
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SUBROUTINE  RDELEM(ME, KLOCE, VCORE,  VPRNE, VPREE, KNE) 


C    READ  ELEMENT  PROPERTIES  FROM  FILE  ME 


IMPLICIT  REAL*8(h-H,C-Z) 

COMMQN/R6DT/IEL,  ITPE,  ITPE1,  IBRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,\ULL(£) 

DIMENSION  KLOCE(*),VCORE(*),VPRNE(*),VPREE(*},KN'E(«) 


C- 


READ(ME)  IEL,  ITPE,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL, 

1  (KLOCE(I), 1=1, IDLE),  (VCORE(I),  1=1,  ICE), 

2  (VPRNE(I), 1=1, IPRNE),  (VPREE(I), 1=1, IPREE), 

3  (KNE (I),  1=1,  INEL) 
RETURN' 

END 


SUBROUTINE  BLSOLC 


C=_      ========= 

C         TO  CALL  BLOCK  "SOLC 

C    TO  READ  CONCENTRATED  LOADS 


IMPLICIT  REAL*8(A-H,0-Z) 

CHARACTER*4  7BL 

COMMON/RESQ/NEQ, NFILLR (2) 

COMMON/ES/M,  MR,  MP,  Ml ,  MDUMMY  (9) 

C0MMON/L0C/LC0R6, LDLNC, LNEQ,  LXX (15) ,  LFG,  LDUMMY (6) 

COMMON  VA(1) 

DATA  TBL/'FG    '/ 
C 

IF(Ml.EQ.O)  M1=*R 

WRITE (MP, 2000)  M 
2000  F0RMAT(//'  INPUT  Of  CONCENTRADED  LOADS  («=',  12,'  >'/'  ', 
1  39('=')) 

IF(LFS.EQ.l)  CALL  ESPACE(NEQ,  1,TBL,LFG) 

CALL  EXSOLC(VA(LFB), VA (LDLNC), Vfi(LNEG)) 

RETURN 

END 
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SUBROUTINE  EXSCLC ( VFB,  KDLNC,  KNEQ) 


C— 


C    TO  EXECUTE  BLOCK  'SOLC 
C    READ  CONCENTRATED  LOADS 


IMPLICIT  REAL*8  <fi-H,G-Z) 
COWfON/COOR/NDIM,  NNT,  NDLM,  NNUU,  FNULL  (3) 
COtfMON/RESO/NEQ, NFILLR (21 
COMMON/ES/M,  HR,  MP,  fll,  HDUMHY  (9) 
COMMON/TRVL/KV< 16) , V< 14) , RDUJWY (499) , NULL 
DIMENSION  VFG(*), KDLNC <*),KNEQ<*) 
DATA  LIE/ 16/ 


C READ  DATA 

IF  (M.GE.O)  WRITE  (MP,  2000) 
2000  FORMAT (//'  CARDS  OF  NODAL  LOADS'//) 

I0=MIN0(7,NDLN) 
10   READ<M1,1000)  IG,  <V(I), 1=1, 10) 
1000  FORMAT) 15, 7F10.0) 

IF(NDLN.ST.7)  READ (Ml, 1005)  (V(I), I=B,NDLN) 
1005  FORMAT (5X,7F10.0) 

IF(M.6E.0)yRITE(MP,2010)I6,  (V(I),I=i,.MDLN) 
2010  FORMATC  >>>>>',  15, 7E12.5/C  )))))', 5X,7E12.5)) 

IF(IG.L£.0)  GO  TO  60 
20   READ(M1, 1010)  (KV(I),  1=1, L16) 
1010  FORMAT (1615) 

IF(M.SE.O)HRITE(MP,2020)(KV(I),I=1,L16) 
2020  FORMATC  >>>>>',  1615) 
C DECODE  NODAL  DATA 

DO  50  IN=1,L16 

I1=KV(IN) 

IF(Il.GT.NNT)  CALL  ERREUR<61,  U.NNT,  1) 

IF<I1)10,10,30 
30   ID1=KDLNC(I1)+1 

ID2=KDLNC(I1+1) 

J=0 

DO  50  ID=ID1,ID2 

J=J+1 

IEQ=KNEQ(ID) 

IF(IEQ)50,50,4O 
40   VFG(IEQ)=VFG(IE3)+V(J) 
50   CONTINUE 

GO  TO  20 

C OUTPUT 

60   IF(M.GE.1)«RITE(MP,2030)(VFS(I),I=1,NEQ) 
2030  FORMAT(//'  TOTAL  LOAD  VECTOR' /(10X,  10E12. 5)) 

RETURN 

END 
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SUBROUTINE  BLSOLR 


C    TO  CALL  BLOCK  'SGLR' 


C    TO  ASSEMBLE  DISTRIBUTED  LOADS  (ELEMENT  FUNCTION  7) 

IMPLICIT  REAL#3(A-H,0-Z) 

CHARACTER**  TBL 

COSMDN/COGR/NDIM,  W,  MDLN,  NDLT,  FNULL  (3) 

COMMQN/ELEM/NULL(4) , ME,  XNULU2) 

COWION/aSSE/NSYM,  NKG,  NXE,  NDLE 

COMMON/SESO/NEQ, NRES,  MRES 

C3HWES/M,  MR,  «P,«i,  M2,  MDUMMY  (8) 

COIWN/LOC/LCORB,  LDLNC,  LNEQ,  LDIMP,  LPRNG,  LPREG,  LLD,  LLDCE,  LCDRE,  LNE, 
i  LPRNE,  .PREE,  lDLE,  LKE,  LFE,  LKSS,  LK6D,  LKBI,LF6,  LRES,  LDL6,  LDUMMY  (4) 

COMMON  Vfl(i) 

DIMENSION  TBL(8) 
C 

C+++    THIS  IS  COMMENTED  OUT  BECAUSE  OF  THE  MS  FORTRAN  CGMP- 
C+++    ILER  BUG  WHICH  WILL  NOT  INITIALIZE  $LARGE  ARRAYS 
C+-*    THIS  ARRAY  IS  NOW  INITIALIZED  BY  A  CALL  TO  INITBL  WHICH 
C+++    EXISTS  SOLELY  TO  INITIALIZE  TABLE  NAMES. 
C 

C    DATA  TBL/'-G  ','KE  ','FE  ','DLE  ', 'KSS  ','KGD  ','KGI  ', 
C   1  'RES  '/ 
C 

C      HERE  IS  THE  CALL  TO  GET  AROUND  THE  COMPILER  BUG 
C 

CALL  INITBL iTBL,'SOLR') 
C 

C+++    ALL  THIS  WAS. SIMPLY  TO  GET  AROUND  THE  MICROSOFT 
C+++    COMPILER  BUG 
C 
c 

IF(Mi.EQ.O)  M1=MR 
IF(M2.EQ.0i  M2=ME 
WRITE (MP, 2000)  M 
2000  FORMAT (//'  ASSEMBLING  OF  DISTRIBUTED  LOADS  (M=',I2,'J'/ 
1  1X,40('=')/) 

IF(LFS.EQ.l)  CALL  ESPflCE(l€Q,l1TBL(l),LFG) 
IF(LKE.EQ.l)  CALL  ESPACE(NKE, 1,TBL(2),LKE) 
IF(LFE.EQ.l)  CALL  ESPACEfNDLE,  1,TBL(3),LFE) 
IF(LDLE.EQ.l)  CALL  ESPACE(NDLE,  1, TBL (4), LDLE) 
IF(LKGS.EQ.i)  CALL  ESPACEfNKG,  1,TBL(5),LKGS) 
IF<LXGD.EB.i)  CALL  ESPACE(NEQ,i,TBL(6),LKGD) 
IFWSYM.EQ.i.AND.LKGI.EG,  1)  CALL  ESPACEfNKG,  1, TBL (7), LKG I) 
IF(LSES.EQ.i)  CALL  ESPACE(NDLT,i,TBL(8),LRES) 
CALL  EXSOLR(VA(LiD) , VA(LDIMP) , VA(LLOCE) , VA(LCORE) , VA(LPRNE) , 

1  VA(LPREE),VA(LNE),VA(U<E),VA(LFE),VA<LKGS),VA(LKSD), 

2  VA (LKSI ) , VA (LFG) , VA (LCQRG) , VA (LDLNC) , VA (LNEQ) , 

3  VA (LRES), VA (LDLE)) 
RETURN 

END 
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SUBROUTINE  EXSCLRC<^D, VDIMP,  KlCCE, VCORE,  VPRNE,  VP'.EE,  KNE, VKE, VFE, 
1     VKBS,  VKBD,  VKGI,  VFG,  VCORG,  HDLNC,  KNEB,  VRE3.  VDLE) 

C    T0  EXECUTE  BLOCK  'SQLR' 

Z         ASSEJfflLE  DISTRIBUTED  LOADS  (ELEMENT  FUNCTION  7) 


IMPLICIT  REflL#8«Ki,Q-Z) 

COMHON/fiSSE/NSVK,  NKG,  NKE,  NDLE 

COWKW/RESQ/SiEa,  MRES, NFILLR 

CONKW/ES/H,  KS,  .MP,  Ml ,  H2,  MDUMWY  (B) 

DIMENSION  O(*),VDIMP(*),KL0CE(*),VC0RE(*),VPRNE(*),VPREE(*), 

1  KNE(#),VKE(*),VFE(#),VKGS(*),VKGD(*),VKGI(*),VFG(*),VCORG(*), 

2  KDLNC («) , KNEB (*) , VRES (*) , VDLE (*) 


C ASSEMBLE  FG 

CRLL  ASFG (KLD,  VDIMP,  KLOCE,  VCORE,  VPRNE,  VPREE,  KNE,  VKE,  VFE,  VKGS, 
1  VKGD,W3I,VF3,  VDLE,  VRES) 
C OUTPUT 

IF(M.SE.l)  WRITE  (MP,  2000)  (VFG(I),  1=1,  NEB) 
2000  FORMAT (/'  GLOBAL  LOAD  VECTOR  (FG)V(IX,  10E12.5)) 

RETURN 

END 
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SUBROUTINE  fiSF6(XLD,  VDIMP,  KuOCE,  VCORE,  VPRNE,  VPREE,  KNE,  VKE,  VFE, 
1  VKGS,  VKGD,  VKG I,  VFG,  VDLE,  VRES ) 

— .    i  i  .  „    i...      -   .---     . .  .  i.  I...  ■--■■■■-■■■■  —  -   ■  ■  i .     --       i      i  ■  -  -  - .  i  -  ^-  .-,_■-  _ 


ASSEME.ING  DISTRIBUTED  LOADS  IN  FG 


IMPLICIT  REAL*8(A-H,G-Z) 

CPHM/EUEM/NELT,  MNiEL,  NTPE,  NGRE,  ME,  NIDE.NT,  MNULL 
CQMMQN/SSSE/NSYM,  MFILLR  (3) 
C0MM0N/RES0/NE3,NFILLR(2) 

COMMCN/RSDT/IEL,  ITPE,  ITPE1,  ISRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDEG,  IPG 
1     ,IC0D,NULL(3) 

COMMON/EG/M,  MR,  MP,  ft,H2,  fffiUMMY(B) 
DIMENSION  KLD(*),VDIMP(«),KLOCE(*),VCQRE(*),VPRNE(*),VPREE(*), 

1  KNE(*),VKE(*),VFE(*),VKGS(*),VKSD(*),VKGI(*),VFG(*),VDLE(*), 

2  VRESU) 

c remind  Element  file  m 

REWIND  M2 
C LOOP  OVER  THE  ELEMENTS 

DO  20  IE=1,NE_T 
C READ  P.N  ELEMENT  FROM  FILE  NS 

CALL  RDEL£M{H2,  KLQCE,  VCORE,  VPRNE,  VPREE,  KNE) 
C EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

IF(ITPE.EQ.ITPEi)  GO  TO  10 

IC0D=2 

CALL  ELBO<VC0RE,  VPRNE,  VPREE,  VDLE,  VKE,  VFE) 

C EVALUATE  ELEMENT  VECTOR 

10        IC0D=7 

CALL  ELEML8(VC0RE, VPRNE, VPREE, VDLE, VKE, VFE) 
C PRINT  ELEMENT  VECTOR  VFE  , 

IF(M.GE.2)  WRITE  (MP,  2000)  IEL,  (VFE  (I),  1=1,  IDLE) 
2000  FORMAT!/'  VECTOR  (FE)  ,  ELEMENT:', 15/ (10X, 10E12. 5)) 
C ASSEMBLE 

CAL^  ASSEL(0,1,  IDLE,  NSYM,KLQCE,KLD,  VKE,  VFE,  VKGS,  VKGD,  VKSI.VFS) 
20   ITPE1=ITPE 

RETURN 

END 
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subrqut:ne  bllinm 

c   to  call  block  'lin*' 

c   assemble  and  solve  fi  linear  problem  in  core 

implicit  real*8(a-h,0-z) 
c'harac7er*4  tbl 

CQ3WQN/COOR/X3)II>l,  NN7,  NDLN,  NDLT,  FNULL  (3) 
CGXMQN/ELEM/NULL  ( 4) ,  ME,  HNULL(2) 
CQ»IQN/ASSc/NSYK,  NKG,  NKE,  NDLE 
COHMON/RESO/NEB,  NRES,  MRES 
CONMON/ES/M,  MR,  MP,  Ml,  *2,  S3,  MDUMMY<7) 

2C*  WL3C/LCORG,  LDLNC,  LNEQ,  LDIKP,  LPRN6,  LPREG,  LLD,  LLOCE,  LCORE,  LNE, 
i  LPRNE,  LPREE,  LDLE,  LKE,  LFE,  LKSS,  LKGD,  LKGI,  LFG,  lRES,  LDLB,  LDUMMY  ( 4) 
COMMON  VAC) 
DIMENSION  TBL (8) 

U 

C+++  THIS  IS  COMMENTED  OUT  BECAUSE  GF  T«E  MS  FORTRAN  COMP- 

C+++  ILER  BUG  WHICH  WILL  NOT  INITIALIZE  $LARGE  ARRAYS 

C+++  THIS  ARRAY  IS  NOW  INITIALIZED  BY  A  CALL  TD  INITBL  WHICH 

C+++  EXISTS  SOLELY  TO  INITIALIZE  TABLE  NAMES. 

C 

C  DATA  TBL/' KG3  ','KSD  ','KGI  ','FB  ','KE  ','FE  ','RES  ','DLE  '/ 

C 

C  HERE  IS  THE  CALL  TO  SET  AROUND  THE  COMPILER  BUG 

C 

CALL  IMTBL(TBL,'LINM') 

C 

:+++  ALL  THIS  WAS  SIMPLY  TO  GET  AROUND  Tr€  MICROSOFT 

C+++  .  COMPILER  BUG, 

C 

c 

IF(Mi.EQ.O)  M1=«R 

IF(M2.EG.O)  M2=ME 

IF(M3.EQ.O)  M3=MRES 

READ  (Mi,  1000)   IN 
1000    FCRMflTUIS) 

IF(IN.NE.O)  NRES=1 

WRITE (MP, 2000)  M,NRES 
2000  FORMAT!//'  ASSEMBLING  AND  LINEAR  SOLUTION  (M=» ,  12, ' ) ' /'  \30('=')/ 
1  15X,'  INDEX  FOR  RESIDUAL  COMPUTATION   (NRES)='f 15) 

IF(LKGS.EQ.i)  CALL  ESPflCE  <NK6,1,  TBL  (1),LKGS) 

IF(LKGD.EQ.l)  CfiLL  ESPACE(NEQ,1,TBL(2),LKGD) 

IF(NSYM.EQ.i.AND.LK6I.EQ.l)  CALL  ESPflCE  (NKB,1,  TBL  (3),  LK6I) 

IF(LcB.EG.i)  CALL  ESPACEiNEQ, 1,T3L(4),LFG) 

IFfLKE.EQ. 1)  CALL  ES?flCE<NKE,l,TBL(5),LKE) 

IF (LFE. EQ. 1 )  CALL  ESPflCE (NDLE, 1, TBL (6) , LFE) 

IF(LRES.EQ.l)  CALL  ESPflCE  (NDLT,  I,  TBL  (7),  LRES) 

IF (LDLE. EG. 1)  CALL  ESPflCE (NDLE, 1, TBL «8), LDLE) 

CALL  EXLINN(Vfi (LLD), Vfl(LDI«iP),Vfl(LLQCE),Vfl (LCORE), Vfl(LPRNE), 
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i  UR(LOREE) ,  Vfi  (LNE) .  Vfl  (LKE) ,  VA(LFE) ,  Vfl  (LKGS) ,  VA (LKSD) , 

2  VA  (LKGI ) ,  Vfl(LFS) ,  VA(LCORG) ,  Vfl(LDLMC) ,  Vfl  (LNEQ) , 

3  VA(LRES),VA<LDLE1) 
RETURN 

END 


SUBROUTINE  EXLINM  (KLD,  VOIKP,  KLOCE,  VCORE,  VPRNE,  VPREE,  KNE,  VKE,  VFE, 
1     VKGS.  VKGD,  VKGI,  VFS,  VCGRG,  KDLNC,  KNE3,  VRES,  VDLE) 


C    TO  EXECUTE  BLOCK  'LIN*' 

C    ASSEMBLE  AND  SOLVE  fi  LINEAR  PROBLEM  IN  CORE 


IMPLICIT  REhL*3(A-m,C-Z) 

KJHMON/ASSE/NSYM,  NKG,  NKE,  NDLE 

CQ!«KON/R£SQ/NEQ,  NRES,  MRES 

COMMQN/ES/M,  MR,  MP,  «1,M£,  M3,  MDUMMY  (7) 

DIMENSION  KLD(»),VDIMP(*),XLGCE(*),VCORE(*),VPRNE(*),VPREE(*), 

1  KNE(*),VKE(*>,VFE(*),VKSS(*),VKGD(*),VKGI(*),VFG(*),VCORG(*), 

2  KILNC(*),KNEB(*)fV8ES(«),VDLE(*) 

G=EN  (M3,  FILE='  $$003.  DAT' ,  STATUS='  NEW ,  FORM='  UNFORMATTED' ) 

REWIND  M3 
C 
C ASSEMBLE  KG 

C SAVE  UNMODIFIED  VECTOR  FS  (BY  B.C.)  ON  FILE  M3 

WRITE (M3)  <VFG(I),I=i,NEG) 

IF(M.GE.2)  WRITE  (MP,  2000)  (VF5(I),I=1,NEQ) 
2000  FORMAT (/'  GLOBAL  LOAD  VECTOR  NON  MODIFIED  BY  B.C.  (FG)' 

i/(lX,10E12.5)) 
C ASSEMBLE  KG,  MODIFY  FG  FOR  THE  B. C.  AND  SAVE  THEM 

CALL  ASKG (KLD,  VDIMP,  KLOCE,  VCORE,  VPRNE,  VPREE,  KNE,  VKE,  VFE,  VKGS, 
i  VKGD,  VKGI, VFG, VDLE, VRES) 

WRITE(M3)  (VFG(I),I=1,NEQ) 

WRITE(M3)  (VK6S(I),I=l,NKG),(VKSD(I)JI=i,NEQ) 

IF(NSYM.EG.l)  WRITE (M3)  (VKGI (I),  1=1, NKG) 
C PRIN'  KG  AND  FG 

IFUUT.2)  30  TO  20 

HRITE(HP,2Q05]  (VKGS(I),I=1,NKG) 
2005  FORMAT!/'  GLOBAL  MATRIX  (KG)'/'    UPPER  TRIANGLE' / 
1  (!X,10E12.5)) 

WRITE  (MP,  2010)  (VKGD(I),I=1,NEQ) 
2010  FORMAT  ('    DIAGONAL'/!  IX,  10E12. 5)) 

IF(NSYM.EQ.l)  WRITE  (MP,  2020)  (VKGI  (I),  1=1, NKG) 
2020  FORMAT ( '   LOWER  TRIANGLE' / ( IX, 10E12. 5) ) 

WRITE  (MP,  2030)  (VFG(I),  1=1,  NEQ) 
2030  FORMAT!/'  GlOBAL  LOAD  VECTOR  MODIFIED  BY  THE  B.C.  (FG)' 

1  /(lX,iOE12.5)) 
C 
C SOLVE 
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c 

£0   CALL  SOLWKGS,  VK8D,  WGI ,  VFG,  KLD,  NEQ,  MP,  1,  i,  NSYM,  ENERS) 

IFiNSYM.NE.i)  WRI'E(!*5P,2035)  ENERG 
2035  FORMAT USX, 'ENERGY   (£NERB)=',IE12.5) 

IF(M.LT.2)  GO  TO  30 

WRITE (MP, 2040)  (VKSSiI),I=l,NKG) 
£040  FORMAT (/'  TRIANGULAR! ZED  MATRIX  (KG)'/'    UPPER  TRIANGLE'/ 
1  (IX,  10E12.5)) 

WRITE  (MP,  £010)  <VKGD(I),I=i,NEG) 

IF(NSYM.EQ.l)  -RITE (MP, 2020)  (VKGKI),  1=1, NK6) 

C PIVOTS  OF  KG  AND  DETERMINANT 

30   CALL  PRPVTS(VKGD) 

C EVALUATE  AND  PRINT  RESIDUAL  VECTOR  K.U  -  F 

IF(NRES.EQ.i)  CALL  PRRESD(VKGS,VKGD,VK6I, VFG, KLD,  VRES) 
C ORINT  'HE  SOLUTION 

WRITE  (MP,  2050) 
2050  FORMAT)//'  SOLUTION1//) 

CALL  PRSOLfKDLNC,  VCORG,  VDIMP,  KNEQ,  VFG) 
C 

C EVALUATE  AND  PRINT  GRADIENTS  (STRESSES) 

C 

CAll  ASGRAD  (KLD,  VDIMP,  KLOCE,  VCORE,  VPRNE,  VPREE,  KNE,  VKE,  V^E,  VKBS, 
1  VKGD,VKSI,VFG,VDLE,VRES) 
C 

C EVALUATE  AND  3RINT  EQUILIBRIUM  RESIDUAL  VECTOR 

C 

C READ  VECTOR  FS  AND  CHANGE  SIGN 

REWIND  ,13 

REflD(M3)  <VRES(I),I=1,NEQ) 

DO  40  1=1,  NEQ 
40   VRES(I)=-VRES(I; 
C ASSEMBLE  THE  RESIDUALS 

CALL  ASRESD(  1, 1, KLD,  VDIMP, KLOCE, VCORE,  VPRNE,  VPREE, KNE, VKE, Wl, 
1  VKGS,  VKGD,  VKGI,  VFG,  VDLE,  VRES,  VRES  (NEQ+1 ) ) 
C PRINT  THE  RESIDUALS 

WRITE  (MP,  2060) 
20&0  FORMflK//'  EQUILIBRIUM  RESIDUALS  AND  REACTIONS'//) 

CALL  PRSGL  (KDLNC,  VCORG,  VRES  (NEQ+1 ) ,  KNEQ,  VRES) 

RETURN 

END 
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SUBROUTINE  ASKS (K.D, VDIMP, KLOCE, VCORE, VPRNE, VPREE, KNE, VKE, VFE, 
1  VKGS,  VK3D,  VKGI,  VFS,  VDLE.  VRES) 

C    TO  ASSEMBLE  GLOBAL  MATRIX  K3  (ELEMENT  FUNCTION  3) 
C     TflKINB  INTO  ACCOUNT  CF  NON  ZERD  PRESCRIBED  D.O.F. 


IMPLICIT  REAL*8(A-«,0-Z) 

K1KQN/CDND/NCLT,  NOLZ,  NCLNZ 

C5KMCN/ELEM/NEL7,  NNEL,  N7PE,  NGRE,  i€,  NIDENT,  MNULL 

CEMMON/ASSE/NSYM,MFILLR(3)    . 

COMMON/ RESG/NED,  NFILLR  (2) 

CO^C^i/RSDT/IE.,  ITPE,  ITPE1,  I3RE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDES,  Z?G 

1  ,ICCD,NULL<3) 

CQMMQN/ES/M,  MR,  MP,  Ml,  MS,  MDUMMY  (8) 

DIMENSION  KLD (*) , VDIMP (*) , KLGCE (*) , VCORE (*) , VPRNE (*) , VPREE(«) . 
i  XNE  (*),  VKE  (*),VFE(*),VKGS(*),VKGD(*),  VKGI  (*),VFG!*),  VDLE  (*), 

2  VRES(*),KEBu) 


p 


C REWIND  ELEMENT  FILE  (M2) 

REWIND  M2 
C LOOP  OVER  THE  ELEMENTS 

DO  30  IE=1,NELT 
C READ  AN  ELEMENT  ON  FILE  K£ 

CAL^  RDELEM (M2, KLOCE, VCORE, VPRNE,  VPREE, KNE) 
C SKIP  COMPUTATION  IF  IDENTICAL  ELEMENTS  ENCOUNTERED 

IF  (NIDENT.  E3. 1.  AND.  IE.  ST.  1 )  GO  TO  20 
C EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

IFdTPE.  EQ.  ITPEi)  GO  TO  10 

IC0D=2 

CALL  ELEMLBfVCQRE,  VPRNE, VPREE,  VDLE,  VKE,  VFE) 

C FORM  ELEMENT  MATRIX 

20   IC0D=3 

CALL  ELEMLB ( VCGRE,  VPRNE,  VPREE, VDLE,  VHE, VFE) 
C PRINT  ELEMENT  MATRIX 

IF(H.LT.2)  GO  TO  £0 

IF (NSYM. EQ. 0)  IKE=IDLE* ( IDLE+1 ) /£ 

IF(NiSYM.EO.l)  IKE=IDLE*IDLE 

WRITE (MP, 2000)  IEL, (VKE(I), 1=1, IKE) 
2000  FORMAT(/'  MATRIX  (HE)  ,  ELEMENT:* , I5/(10X, 10E12. 5) ) 

C MODIFY  FG  FOR  NON  ZERO  PRESCRIBED  D.O.F. 

20   IF (NCLNZ . NE.  0)  CALL  MODES ( IDLE,  NSYM,  KLOCE,  VDIMP, VKE, VFS) 
C ASSEMBLE 

CALL  ASSEL  (1,0,  IDLE,  NSYM,  KLOCE,  KLD,  VKE,  VFE,  VKGS,  VKSD,  VKGI ,  VFG) 
30   ITPE1=ITPE 

RETURN 

END 
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SUBROUTINE  flSeSADMLD,  VDIHP,  KLOCE,  VCORE,  VPRNE,  WitE,  KNE,  VKE,  VFE, 
1  VKBS,VK6D,VKBI,VFB,VDLE,VRES) 

C    TO  EVflLUATE  AND  PRINT  GRADIENTS  (STRESSES)  AT  ELEMENT  S. P. 
C     (ELEMENT  FUNCTION  8) 

IMPLICIT  REAL#8(fi-H,G-Z) 

COMMQN/ElEM/NELT,  NNEL,  NTPE,  N6RE,  ME,  NIDENT,  M^iULL 
COMMON/ASSE/NSYM,  WFILLRO) 
CDMMON/REBO/5JEQ,NFILLR(2) 

C0HM0N/R6DT/IEL,  ITPE,  ITPE1,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDEB,  IPG 
i  ,ICCD,NULL<3) 

COMMON/ES/H,  MR,  MP,  Mt,«2,  MDUNMY  (8) 
DIMENSION  KLD(*),VDIMP(*),KLOCE(*),VCORE(*),VPRNE(*),VPREE(*!, 

1  KNE(*),VKE(*),VFE(*),VKGS(*),VKGD(*),VKGI(*),VFG(*),VDLE(*:i, 

2  VRES(*) 

C 

C REWIND  ELEMENTS  FILE  (M2) 

REWIND  M2 
C LOOP  OVER  THE  ELEMENTS 

DO  20  IE=1,NELT 
C READ  THE  ELEMENT 

CALL  RDELEM (M2, KLOCE, VCORE, VPRNE, VPREE, KNE) 
C EVALUATE  INTERPOLATION  FUNCTION  IF  REQUIRED 

IF(ITPE.EQ.ITPEl)  GO  TO  10 

IC0D=2 

CALl  ELEMLB  ( VCORE,  VPRNE,  VPREE,  VDLE,  VKE,  VFE ) 

C FIND  ELEMENT  D.O.F. 

10   CALL  DlELM(KLCCE,VFG,VDIMP,VDL£) 

C COMPUTE  AND  PRINT  STRESSES  OR  GRADIENTS 

IC0D=8 

CALL  ELENLBIVCORE, VPRNE, VPREE, VDLE, VXE, VFE) 
20        ITPE1=ITPE 

RETURN 

END 
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SUBROUTINE  A3RESD  ( 1 SE3D,  IREPC,  KLD,  VDIMP,  KLOCE,  VCORE,  VPRNE,  V^REE. 
:  KNE,  VKE,  VFE,  VKGS,  VKGD,  VKBI,  VFG,  VDLE.  VRES.  VREflC) 


r== 


C    TO  ASSEMBLE  INTERNAL  RESIDUALS  IN  VRES  (IF  IRESD  .EQ.l) 
C    AND  EXTERNAL  REACTIONS  IN  VREAC  (IF  IREAC.EG.l) 


IMPLIC"  REAL»8(A-K,C-Z) 

CCMKON/ELEM/NELT,  NNEL,  NTPE,  NGRE,  HE,  NIDENT,  MNULL 
CCWCN/ ASSE/ NSYM,  MFILLS(3) 
CDHHOWRESO/NEQ, NFILLR(2) 

C0MMGN/R6DT/IEL,  ITPE,  ITPEi,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDEG,  IPS 
1  ,  I COD,  NULL (3) 

CQWKON/ES/M,  MR,  MP,  HI,  H2,  MDUMMY  (8) 
DIMENSION  KLD<*),  VDIMP  W,KLQCE(*),VCORE(*>,  VPRNE  (*),VPREE(*). 

1  KNE  (*),VKE(*),  VFE  (*),  VKGS  (*),  VKGD  (*),VKGI(*),  VFG  (*),VDLE(*), 

2  VRES <*), VREflC (*) 


C REWIND  ELEMENT  FILE  (M2) 

REWIND  H2 
C LOOP  OVER  THE  ELEMENTS 

DO  SO  IE=i,!€LT 
C READ  AN  ELEMENT  ON  FILE  HE 

CALL  RDELEM (M2, KLOCE, VCORE, VPRNE, VPREE, KNE) 
C EVALUATE  INTERPOLATION  FUNCTION  IF  REQUIRED 

IF (ITPE. EG. ITPEi)  GO  TO  10 

ICG3=£ 

CALL  ELEHLB (VCORE, VPRNE,  VPREE,  VDLE,  VKE,  VFE) 
C FIND  ELEMENT  D.O.F. 


10   CALL  DLELH (KLOCE, VFG, VDIMP, VDLE) 
C EVALUATE  ELEMENT  REACTIONS 

ICQD=S 

CALL  ELENLBtVCORE,  VPRNE,  VPREE, VDLE,  VKE,  VFE) 
C PRINT  ELEMENT  REACTIONS 

IF(M.GE.2)  WRITE  (MP,  2000)  IEL,  (VFE  (I),  1=1,  IDLE) 
£000  FORMAT*/'  REACTIONS  (FE)  ,  ELEMENT:', 15/ (10X, 10E12. 5)) 

IRIRESD.NE.l)  GO  TO  20 
C ASSEMBLE  INTERNAL  RESIDUALS 

CALL  ASSEL  (0, 1 ,  IDLE,  NSYM,  KLOCE,  KLD,  VKE,  VFE,  VKGS,  VKGD,  VKGI ,  VRES) 
20   IF(IREAC.NE.l)  SO  TO  60 

C ASSEMBLE  EXTERNAL  REACTIONS 

C     MODIFY  TERMS  IN  KLOCE  SUCH  THAT  PRESCRIBED  D.O.F.  ARE  THE  ONLY 
C     ASSEMBLED  ONES 

DO  50  ID=1, IDLE 

IF(KLOC£(ID))  30,50,40 
30   KLOCE ( ID) =-KLOCE ( ID) 

GO  TO  50 
AO   KLOCE (ID)=0 
50   CONTINUE 

CALL  ASSEL  (0, 1 ,  IDLE,  NSYM,  KLOCE,  KLD,  VKE,  VFE,  VKGS,  VKGD,  VKGI ,  VREAC) 
60   ITPE1=ITPE 

RETURN 

END 
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SUBROUTINE  ASSE_ ( IKS,  IFG,  IDLE,  NSYM,  KLOCE,  KLD,  VXE,  V~E,  VKGS, 
i  VKBD,VKSI,VFS) 


C  TO  ASSEMBLE  AN  ELEMENT  MATRIX  AND/OR  VECTOR 

C  (MATRIX  SYMMETRICAL  OR  NOT) 

C  INPUT 

C  IKS    IF  1KB. ED. 1  ASSEMBLE  ELEMENT  MATRIX  KE 

C  IFS    IF  IFS.EQ.1  ASSEMBLE  ELEMENT  VECTOR  FE 

C  IDLE   ELEMENT  NUMBER  GF  D.O.F. 

C  NSYM   ^SYMMETRIC  PROBLEM,  1=UNSYMMETRIC  PROBLEM 

c  xloce  Element  localization  vector 

C  KLD    CUMULATIVE  COLUMN  HEIGHTS  OF  KG 

C  VKE    ELEMENT  MATRIX  HE  (FULL  OR  UPPER  tRIANGlE  8Y 

C  DESCENDING  COLUMNS) 

C  VFE    ELEMENT  VECTOR  FE 

C  OUTPUT 

C  VKSS,VKSD,VKSI   GLOBAL  MATRIX  (SKYLINES) 

C  (SYMMETRIC  OR  NOT) 

C  VFG    GLOBAL  LOAD  VECTOR 


IMOLICIT  REAL*8(A-H,0-Z) 

DIMENSION  KLOCE(*),KLD(*),VKE(*),VFE(*),VKGS(*),VKGD(*i, 
1  VKGI(*),VFG<») 


r 


ASSEMBLE  ELEMENT  MATRIX 


IF(IKG.NE.i)  GO  TO  100 

IEQO=IDLE 

IEQ1=1 
C FOR  EACH  COLUMN  OF  KE 

DO  30  JIM,  IDLE 

IFWSYM.NE.1)  IEQO=JD 

JL=KLOCE(JD) 

IF(JL)  90,90,10 
10   I0=KLD(JL+1) 

IEQ=IEQ1 

IQ=1 
C FOR  EACH  ROW  OF  KE 

DO  80  ID=1, IDLE 

IL=KLOCE(ID) 

IF(NSYM.EQ.l)  60  TO  30 

IF(ID-JD)  30,20,20 
20   IQ=ID 
30   IF  (ID  80,80,40 
40   IJ=JL-IL 

IF  (I  J)  70,50,60 

C DIAGONAL  TERMS  OF  KG 

50   VK6D(IL)=VK6D(IL)+VKE(IED) 

GO  TO  80 
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C UPPER  TRIANGLE  TER*S  CF  KG 

60   I=I0-IJ 

VKSS ( I ) = VKGS ( I ) +VKE  < I EQ ) 

30  TO  80 

C .OWES  TRIANGLE  TEWS  OF  KG 

70        IF<NSYM.NE.ll  GO  TO  80 

!=KLD(IL+1)+IJ 

VKBKI)=WSI(I)+VKE(IEQ) 
80        IE3=iZS+!Q 

go      iegi=:eqi+:eqo 
c 

c assemble  ELeerr  lord  vector 

c 

100      IFCIF6.NE.1)  SO  TO  120 
DO  120  ID=1,IDLE 
IL=KLOCEUD) 
IF(IL)  120,120,110 

110      V'FS(IL)=VFGCL)+VFE(ID) 
120      CONTINUE 
130      RETURN 
END 
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SUBROUTINE  MODFG ( IDLE, NSYM, KLOCE,  VDIMP,  VKE,  VFS) 

C  TO  MODIFY  VECTOR  FG  TO  TAKE  INTO  ACCOUNT  OF  PRESCRIBED  NON  ZERO 

C  D.O.F.  FOR  A  GIVEN  ELEMENT 

C  INPUT 

C  IDLE   ELEMENT  NUMBER  OF  D.O.F. 

C  N3YM   0=SYMWETRIC  PROBLEM,  l=NON  SYMMETRIC  PROBLEM 

C  KlQCE   ELEMENT  LOCALIZATION  VECTOR 

C  VDIMP   VALUES  OF  PRESCRIBED  D.O.F. 

C  VKE    ELEMENT  MATRIX  (FULL  OR  UPPER  TRIANGLE 

C  BY  DESCENDING  COLUMNS) 

C  OUTPUT 

C  VFG    GLOBAL  LOAD  VECTOR 

IMPLICIT  REAL*8(A-H,0-Z> 

DIMENSION  KLOCE<#),VDIMP<*),VKE<*>,VFG(*> 

DATA  ZERO/O. DO/ 

>■* 

IEQO=IDLE 
IEQ1=1 

C FOR  EACH  ROW  OF  ELEMENT  MATRIX 

DO  50  JD=1,IDLE 

IF(NSYM.NE.l)  IEQO=JD 

IEQ=IEQ1 

JL=KLOCE(JD) 

10=1 

:-!JL)  10,50,50 

DIMP=VDIMP(JL) 

IF(DIMP.EQ.ZERO)  GO  TO  50 
C FOR  EACH  COLUMN  OF  ELEMENT  MATRIX 

DO  40  ID=1, IDLE 

IL=KLOCE(ID) 

IF1NSYM.EQ.1)  GO  TO  30 

IF(ID-JD)  30,20,20 
20   IQ=ID 

30   IF(ILBT.O)  VFG(IL)=VFG(IL)-VKE(IEC)*DIMP 
40   IEQ=IEG+IQ 
50   IEQ1=IEQ1+IE50 

RETURN 

END 
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SUBROUTINE  PRPVTS(VKGD) 


TO  EVALUATE  AND  TO  PRINT  THE  PIVOTS  AND  THE  DETERMINANT  OF  MATRIX  KS 


IMPLICIT  REAL*3!A-K,Q-Z) 
CCWWRESO/NSQ,  NFILLR  (2) 
COMMQN/ES/M,  MR,  MP,  MDUMMY  ( 10) 
DIMENSION  VKGD(*J 
SflTft  UN/1.D0/,6R0S/1.D3B/ 
ABS(X)=DABS(X) 
C 


X1=6R0S 
X2-3R0S 
DET=liN 

:dst=o 

c print  pivots  of  matrix  ks 

if(m.se.2)  write  (mp,  2000hvkgdu),  1=1,  neq) 

2000  format (/'  3lc3al  matrix  pivots' / ( ix, 10e12. 5) ) 

DO  50  1=1,  NEQ 
C ABSOLUTE  VALUE  GF  MINIMUM  PIVOT 

X=ABS(VKGD(D) 

IFU.GT.Xi)  SC  TO  10 

X1=X 

11=1 
C ALGEBRAIC  VALUE  OF  MINIMUM  PIVOT 

X=VKGD(I) 
10   IF(X.BT.X2)  GO  TO  20 

X2=X 

12=1 

r> DETERMINANT  (BOUNDS  :  10  EXPONENT  +  GR  -  10) 

20   DET=DET*VKBD(I> 
30   DET!=ABS(DET) 

IFHJET1.LT.1.D10)  SO  TO  40 

DST=D€T*1.D-10 

IDET=IDET+10 
40   IF(DETl.ST.l.D-lO)  SO  TO  50 

DET=DET*1.D10 

IDET=IDET-1G 

GO  T0  30 
50  CONTINUE 
C OUTPUT 

WRITE (MP, 2010)  X1,I1,X2,I2,DET,IDET 
2010  F0RMAT(/15X, 'ABSOLUTE  VALUE  OF  MINIMUM  PIVOT   =',E12.5,'  EQUATION 
1 : ' ,  15   /29X,  ' ALGEBRAIC  VALUE=' ,  E12. 5, '  EQUATION: ' , 

2   15   /29X,  'DETERMINANT    =',E12.5,'  *  10  **  ', 


RETURN 
END 
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SUBROUTINE  PRRE5D (VK33, VKSD,  VKSI, VFB,  KID, VRE5) 
C    TO  COMPUTE  AND  PRINT  THE  RESIDUAL  VECTOR  K.U  -  F 


\> 


IMPLICIT  REAL*B(ft-H,Q-Z) 

OWMQN/flSSE/NSYM,  NKS,  MFILLS  (2) 

COJWQN/aESO/I^Q,  \RE3,  MRES 

COMMCN/ES/M,  MR,  MP,  M1,M2,  B3,  KDUMKY  (7) 

DI?ENSiS»l  VK8S(*),VKBD(*),VKBI(*),VFB(*),KLD(*),VRES(*) 

DATA  ZERO/O. DO/ 

ABS!X)=DABS(X) 


REWIND  M3 
C SKI?  VECTOR  FG  NON  MODIFIED  BY  B.C.  ON  FILE  M3 

READ(M3)  <VRES(I),I=1,NEG) 
C READ  VECTOR  FG  MODIFIED  BY  B.C.  AND  MATRIX  KG 

READ(K3)  (VRES(I),I=1,NEQ) 

READOI3)  (VK6S<I>,I=1,NKG),<VKGD<I),I=1,NEQ) 

IF(NSYM.EQ.l)  READ(M3)  (VKGI (I), 1=1, NKG) 
C EVALUATE  THE  RESIDUAL  VECTOR 

DO  10  1=1,  NEQ 
10   VRES(I)=-VRES(I) 

CALL  MULKU  ( VKSS,  VKGD,  'VKGI ,  KLD,  V^G,  NEQ,  NSYM,  VRES) 

DO  20  1=1,  NEQ 
20   VRES(I)=-VRES(I) 

X1=ZER0 

DO  30  1=1, NEQ 

X=ABS(VRES(I)) 

IF(Xl.GE.X)  60  TO  30 

X1=X 

11=1 
30   CONTINUE 

IFW.GE.2)  WRITE  (MP,  2000)  (VRES  (I),  1=1,  NEQ) 
2000  FORMATS'  RESIDUALS  VECTOR'/ (IX,  10E12. 5)) 

WRITE (MP, 2010)  XI, II 
2010  FORMATS'  MAX.  RESIDUAL  VALUE=',E12. 5, '  EQUATION' ,  15) 

RETURN 

END 
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SUBROUTINE  PRSOL (KDLNC, VCORG,  VDIMP,  KNEQ,  VFB) 
C    TO  PRINT  THE  SOLUTION 


IMPLICIT  REAL*8(A-H,0-Z) 
CHARACTER**  RF,RL,FX 
COWMON/CDOR/NDIM,  NNT, NNULL (2) , FNULL (3) 
CC«Ma\/ES/M,  MR,  MP,  MDUKMY  (10) 
COMKON/TRVL/V  ( 10) ,  FX  ( 10) ,  RDUHMY  (506) ,  NULL 
DIMENSION  VDIMP(*),KDLNC(*),VCORS(#),KNEQ(*),VFG(*) 
DATA  RF/'  *  '/,RL/'   ' /,  ZERO/O.DO/ 

X2=ZER0 

X3=ZER0 

WRITE (MP, 2000) 
2000  FORMAT?/'  NODES', 4X, ' X',  11X, ' Y',  1 IX,' Z',  10X,' DEGREES  OF  FREEDOM  (* 
1  =  PRESCRIBED)'/) 

12=0 

DC  50  IN=1,NNT 

11=12+1 

I2=I2+NDIM 

ID1=KDLNC(IN)+1 

ID2=KDLNC(IN+1) 

ID=ID2-ID1+1 

IFCD2.LT.ID1)  GO  TO  50 

Xi=VCCRG(Ii) 

IFWDIN.GE.2)  X2=VCQRG(I1+1) 

IF (NDIK.BE. 3)  X3=VC0RG(Ii+2) 

J=ID1 

DO  40  1=1, ID 

JJ=KNEQ(J) 

IF(JJ)  10,20,30 
10   V(I)=VDIMP<-JJ) 

FX(I)=RF 

SO  TO  40 
20   V(I)=ZERO 

CX(I)=RF 

GO  TO  40 
30   V(I)=VF6(JJ) 

FX(I)=RL 
40   J=J+1 

WRITE(MP,2010)IN,X1,X2,X3,  (V(II),FX(II),  11=1,  ID) 
2010  F0RKAT(1X,I5,3E12.5,5X,5(E12.5,A4)/47X,5(E12.5,A4)) 
50   CONTINUE 

RETURN 

END 
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SUBROUTINE  DLEUKKLQCE,  VDL6,  VOI«P,  VDLE) 

C    TO  GENERATE  ELEME\T  D.O.F. 

IMPLICIT  R£AL*S(A-H,0-Z) 
COMMQN/RGDT/IEL, INUL (3) , IDLE, NULL(iO) 
CGMMON/ES/M,  MR,  MP,  MDUMMY  ( 10) 
DIMENSION  KLXE(*),VDL6(*),VDIMP(*),VDLE(*) 
DATA  ZERO/0. DO/ 

DO  40  ID=1,IDLE 
IL=KLDC£(ID) 

IF(IL)  10,20,30 
10   VDLE(ID)=VDIMP(-IL) 

GC  T0  AO 
20   VDL£(ID)=ZERO 

SO  TD  40 
30        VDLE(ID)=VDLG(IL) 
40        CONTINUE 

IF(M.GE.2)  WRITE  (MP,  2000)  IEL,  (VDLE  (ID),  ID=1,  IDLE) 
2000    FORMAT ('  DEGREES  OF  FREEDOM  OF  ElEMENT  ', I5/(iX, 10E12.5)) 

RETURN 

END 


194 


SUBROUTINE  MULKU (VKGS,  VKGD, VKSI, KLD,  VFG,  NEC',  NSY*,  VRIS) 

C  SUSPROGRflM  : 

C  TQ  ADD  VECTOR  RES  TO  THE  PRODUCT  OF  MATRIX  KS  AND  THE  VECTOR  FG 

C  INPUT 

C  VKGS, VKGD, VKSI  MATRIX  KS  STORED  BY  SKYLINE 

C  <SYM.  OR  NON  SYM. ) 

C  KLD    ARRAY  OF  ADDRESS  OF  COLUMN  TOP  TERMS  IN  KG 

C  VFG    VECTOR  FG 

C  .  NEQ    ORDER  OF  VECTORS  FG  AND  RES 

C  NSYM   .ED. 1  IF  NON  SYMMETRIC  PROBLEM 

C  VRES   VECTOR  RES 

C  OUTPUT 

C  VRES   VECTOR  RES 


IMPLICIT  REAL*8<A-H,0-Z) 

DIMENSION  VKSS(*),VKGD(*),VKGI(*),KLD(*),VFS(*),VRES(*> 
c 

C FOR  EACH  COLUMN  OF  MATRIX  KS 

DO  SO  IK=1,NEQ 

XHK=KLD(IK) 

JHK1=KLD(IK+1> 

LHK=JHKWHK 
C DIAGONAL  TERMS 

C=VKGD(IK)*VFG(IK) 

IF(LHK.LE.O)  SO  TO  20 

IO=IK-LHK 
C ROW  TERMS 

IF (NSYM. NE. 1 )  C=C+SCAL ( VKGS ( JHK) ,  VFG ( 10) ,  LHK) 

IF(NSYM.EQ.l)  C=C+SCAL(VKGI(JHK),VFG(IO),lHK) 
C COLUMN  TERMS 

J=JHK 

I1=IK-1 

DO  10  IJ=IO, II 

VRES(IJ)=VRES(IJ)+VK6S(J)*VFS(IK) 
10       J=J+1 
20       VRES(IK)=VRES(IK)+C 

RETURN 

END 
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SUBROUTINic  BfiUSS(IPBKED,M)I«,VKPefVCPG,  IPS) 

C  TO  FORM  ARRAYS  OF  COORDINATES  AND  WEIGHTS  AT  GAUSS  POINTS 

C  (1,2  AND  3  DIMENSIONS) (1,2,3  OR  4  G.P.  PER  DIMENSION) 

C  INPUT 

C  IPGKED  NUMBER  CF  POINTS  IN  KSI,ETA,ZETA  DIRECTIONS 

C  NDIM   NUMBER  OF  DIMENSIONS  (1,2  OR  3) 

C  OUTPUT 

C  VKPG   COORDINATES  OF  GAUSS  POINTS 

C  VCPB   WEIGHTS  AT  GAUSS  POINTS 

C  IPS    TOTAL  NUMBER  OF  GAUSS  POINTS 

IMPLICIT  REAL*8(A-H,0-2) 

DIMENSION  I?GKED(*),VKPG(*),VCPS(*),G(10),P(10),INDIC(A) 

w 

C+++     THIS  IS  COMMENTED  OUT  BECAUSE  OF  THE  MS  FORTRAN  COMP- 

C+++     ILER  BUG  WHICH  WILL  NOT  INITIALIZE  $LARGE  ARRAYS. 

C+++     THESE  ARRAYS  ARE  NOW  INITIALIZED  BY  A  CALL  TO  A  DUMMY 

C+++     SUBROUTINE  INITGA  WHICH  EXISTS  SOLELY  TO  INITIALIZE 

C++*     THESE  THREE  ARRAYS 

C 

C    DATA  INDIC/1,2,4,7/ 

C    DATA  6/0. ODO, -. 57735026918962600, .  5773502691 89626D0, 

C   1     -.77459666924148300,0. ODO,. 774596669241483D0, 

C   2     -.861 13631 1594050D0,-. 33998104356466000, 

C   3     .339981043584860D0,. 861 13631 159405000/ 

C    DATA  P/2.0DO,  1.000,1.  ODO, 

C   1     0.55555555555555600,0. 88888888888888900,0.55555555555555600, 

C   2     .347854845137450DO,.652145154862550DO, 

C   3     .65214515A862550D0,. 34785484513745000/ 

C 

C      HERE  IS  THE  CALL  TO  GET  AROUND  THE  MICROSOFT 

C      COMPILER  BUG 

C 

CALL  INITGA (INDIC,G,P) 

C 

C+++     ALL  OF  THIS  HAS  BEEN  TO  GET  AROUND  THE  MICROSOFT 

C+++     COMPILER  BUG 

C 

c 

II=IPGKED(1) 

IMIN=INDIC(II) 

IMAX=IMIN+II-1 

IF(NDIM-2)  10,20,30 

C 1  DIMENSION 

10   IPG=0 

DO  15  I=IMIN, IMAX 

IPG=IPG+1 

VKPG(IPG)=G(I) 
15   VCPG(IPG)=P(I) 
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RETURN 

C 2  DIMENSIONS 

20        II=IPGKED(2) 

JMIN=INDIC<II> 

JHfiX=JMIN+II-l 

IPG=0 

DO  25  I=IMIN,  IMflX 

DO  25  J=JMIN, JMAX 

IPG=IPG+i 

VKPG(l)=G(I) 

VKPG(L+1)=G<J) 

L=L+2 
25        VCPGUP6)=P(I)*P(J) 

RETURN 

C 3  DIMENSIONS 

30        II=IPGKED(2) 

JMIN=INDIC(II) 

JMflX=JMIN+II-l 

II=IP6KED(3) 

KMIN=INDIC(II) 

KHAX=KMIN+II-1 

IPG=0 

DO  35  I=IMIN, IMflX 
CO  35  J=JMN,JMflX 
DO  35  K=KMIN,KMflX 
IPG=IP6+1 
VKPG(U=G(I) 
VKPG(L+1)=S(J) 
VK?G<L+2)=G<K) 
L=L+3 
35       VOPG!IPG)=P(I)*P(J)*P(X) 
RETURN 
END 
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SUBROUTINE  PNINV  (VKSI ,  KEXP,  VP,  XI,  VPN) 

C  EVALUATE  THE  PN-INVER3E  MATRIX  WHICH 

C  CONTAINS  THE  COEFFICIENTS  CF  FUNCTIONS  N 
C     INPUT      VKSI,  KEXP,  INEL,  IDLE,  ITPE,  M,  MP 
C     WORKSPACE   VP,K1 
C     OUTPUT     VPN 

IMPLICIT  REfiL*8(fi-H,j-Z) 

COMMON/CGCR/NDIM, NNULL (3) , FNULL (3) 

CQHHON/RSDT/IEL,  ITPE-,  ITPE1,  I3RE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDES,  IPS 
1  , NULL* 4) 

COMWCN/ES/M,  MR,  MP,  KDUKMY  ( 10) 

DIMENSION  WSI(*),KEXP(*),VP(«),K1<*),VPN(*),KDER(3) 

DATA  ZERO/0. DC/ 
C 

C+++    THIS  IS  TO  SET  AROUND  THE  MICROSOFT  COMPILER  BUG 
C+++    WHICH  WILL  NOT  INITIALIZE  *LARGE  ARRAYS 
C    DATA  KDER/3*0/ 
C 

KDERU)  =  0 

KDER(S)  =  0 

KDER(3>  =  0 
C+++    ALL  nilS  HAS  BEEN  TO  SET  AROUND  THE  MICROSOFT 
C+++    COMPILER  BUG 


C- 


FORM  PN  MATRIX  (FOR  ANY  LAGRANGE  TYPE  ELEMENT) 


C 

C 


10=1 

11=1 

DO  20  IN=1,INEL 

CALL  BASEP(VKSI(I1),KEXP,KDER,VP) 

12=10 

DO  10  IJ=1,INEL 

VPN(I2)=VP(IJ) 
10   I2=I2+INEL 

10=10+1 
20   I1=I1+NDIM 

P 

w 

C END  OF  PN  FORMATION 

C 

C PRINT  THE  PN  MATRIX 

IF(M.LT.4)  GO  TO  40 

URITE(MP,2000) 
2000  FORMAT (/'  PN  MATRIX'/) 

ID=UN£L-1)*INEL 

DO  30  10=1,  INEL 
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Il-IO+ID 

30   WRITE (MP, 2010)  (VPN(IJ), IJ=I0, II, INEL) 
2010  FORMfiTdX,  10E13.5/ (14X, 9E13. 5) ) 

C INVERSE  THE  PN  MATRIX 

40   CALL  INVERSWPN,  INEL,  INEL, K1,DET) 

IF(DET.NE.ZERO)  80  TO  50 

WRITE  <«P,  8020)  ITPE 
2020  FORMAT!'  ***  ERROR,  PN  SINGULAR,  ELEMENT  TYPE:',  13) 

STOP 

C PRINT  THE  PN-INVERSE  MATRIX 

50   IF(M.LT.4)  GO  TO  70 

WRITE (MP, 2030) 
2030  FORMAT (/'  PN-INVERSE  MATRIX'/) 

DO  60  10=1, INEL 

I1=I0+ID 
60   WRITE  (MP,  2010)  (VPN(IJ),  IJ=I0,I1,INEL) 
70   RETURN 

END 
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$LARGE 
ICEBUG 

JNOFLOATCALLS 
*D066 

SUBROUTINE  NI  (VKSI,  KEXP,  KDER,  VP, VPN,  VNI ) 


0=========================== 

C    TO  EVALUATE  FUNCTIONS  N  OR  THEIR  DERIVATIVES 
C    AT  POINT  VKSI  ON  THE  REFERENCE  ELEMENT 
C      INPUT   VKSI,  KEXP,  KDER,  VP,  VPN,  IDLE,  M,  MP 
C     OUTPUT   VNI 


IMPLICIT  REAL*Q(A-H,0-Z) 

COMMON/CDOR/NDIM, NNULL (3) , FNULL (3) 

CCMMON/RGDT/IEL,  ITPE,  ITPE1,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDEG,  IPG 
1  , NULL (4) 

COMMON/ES/M,  MR,  MP,  MDUMMY  ( 10) 

DIMENSION  VKSI (*),KEXP(*),KDER(*),VP(*),VPN(*), VNI (*) 

DATA  ZERO/0. DO/ 

C 

C COMPUTE  THE  POLYNOMIAL  BASIS  AT  POINT  VKSI 

CALL  BfiSEP  (VKSI,  KEXP,  KDER,  VP) 
C P*(PN-INVERSE)  PRODUCT 

10=1 

DC  £0  IJ=1, INEL 

11=10 

C=ZERO 

DO  10  11=1, INEL 

C=C+VP(II)*VPN(I1) 
10        11=11+1 

VNI(IJ)=C 
20        IO=I0+IlvEL 
C PRINT  FUNCTIONS  N 

IF(M.LL3)  GO  TO  30 

WRITE(MP,2000)  (KDER(I),I=1,NDIM) 
2000  FORMAT)/'  DERIVATIVE  OF  N  WITH  ORDER  ',312) 

WRITE (MP, 2010)  (VKSI(I),I=1,NDIM) 
2010  FQRMATU4X, 'AT  POINT  ',3E13.5) 

WRITE (MP, 2020)  (VNI (I), 1=1, INEL) 
2020  F0RMAT(/(1X,10E13.5)) 
30   RETURN 

END 
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SUBROUTINE  BftSEP(VKSI,KEXP,  KDER,  VP) 

TO  EVALUATE  THE  POLYNOMIAL  BASIS  AND  ITS  DERIVATIVES  AT  POINT  VKSI 
C     INPUT   VKSI, KEXP, KDER,  IDLE,  IDE5,  NDIM,  M, MP 
C     OUTPUT   VP 

IMPLICIT  REAL*8(A-H,0-Z) 
C2MM0N/C0CR/XDIM,  NNULL  (3) ,  FNULL (3) 

COMMON/RGDT/IEL, ITPE, ITPE1, ISRE, IDLE,  ICE, IPRNE, IPREE, INEL, IDEG, IPG 
1  , NULL (A) 

CQMMON/ES/M,  MR,  MP,  MDUMMY  ( 10) 
DIMENSION  VKSI(*),KEXP(*),KDER(*),VP<*) 
DIMENSION  PUISS(3,10) 


DATA  ZERO/0. DO/,  UN/ 1.  DO/ 


C — 


C FORM  SUCCESSIVE  POWERS  OF  KSI,  ETfl,  DZETfl 

DO  10  1=1,  NDIM 

PUISS(I,1)=UN 

DC  10  ID=1,IDEB 
10   PUISSd,  ID+1)=PUISS(I,  ID)*VKSI  (I) 
C DERIVATIVES  OF  ORDER  KDER  WITH  RESPECT  TO  KSI, ETfl, DZETfl 

DO  50  IDL=1, INEL 

C14JN 

I0=(IDL-1)*NDIM 

DO  30  1=1, NDIM 

IDR=KDER(I) 

10=10+1 

IXP=K£XPUQ)+1 

J=IXP-IDR 

IFIJ.LE.O)  BO  TO  40 

IF(IDR.LE.O)  GO  TO  30 

DO  20  ID=1, IDR 
20  C1=C1*(IXP-ID) 
30   C1=C1*PUISS(I,J) 

GO  TO  50 
40   C1=ZER0 
50   VP(IDL)=C1 
C PRINT  POLYNOMIAL  BASIS 

IF(M.LL4)  GO  TO  60 

WRITE (MP, 2000)  (KDER (I), 1=1, NDIM) 
2000  FORMATS'  POLYNOMIAL  BASIS,  DERIVATIVE  OF  ORDER  ',312) 

WRITE (MP, 2010)  (VKSI (I), 1=1, NDIM) 
2010  FORMAT (19X, 'AT  POINT  »,3E13.5) 

WRITE (MP,  2020)  (VP(I), 1=1, INEL) 
2020  F0RMAT(/(1X,10E12.5)) 
60   RETURN 

END 
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SUBROUTINE  INVERS (VP,  N,  IVP,  K,  DET) 

C  TO  INVERT  ft  NON-SYMMETRIC  MATRIX  WITH  SEARCH  OF  ft 

C  NON-ZERO  PIVOT  IN  ft  COLUMN 

C  INPUT 

C  VP     MATRIX  TO  BE  INVERTED 

C  N     ORDER  OF  THE  MATRIX 

C  IVP    DIMENSION  GF  THE  MATRIX  IN  THE  CALLING  PROGRAM 

C  K      INTEGER  WORKING  ARRAY  WITH  LENGTH  N 

C  OUTPUT 

C  VP     INVERSE  MATRIX 

C  DET     DETERMINANT 


L? 


IMPLICIT  REAL*8(A-H,Q-Z) 

DI.IENSION  VPdVP,IVP),KM) 

DATA  ZERO/O.  DO/,  UN/ 1.  DO/,  EPS/ 1.  D-13/ 

ABS(X)=DABS(X) 


C- 


DET=UN 

DO  5  1=1, N 
5    K(I)=I 
C START  INVERSION 

DO  30  II=1,N 
C SEARCH  FOR  NON-ZERO  PIVOT  IN  COLUMN  II 

DO  10  I=II,N 

PlV=VPd,II) 

IF(ABS(PIV).GT.EPS)  GO  TO  20 
10   CONTINUE 

DET=ZERQ 

RETURN 

C EXCHANGE  LINES  II  AND  I 

20   DET=DET*PIV 

IFd.EQ.II)  GO  TO  40 

I1=K(II) 

K  ( 1 1 ) =K ( I ) 

Kd)=Il 

DO  30  J=1,N 

C=VP(I,J) 

VPd,J)=VPdI,J) 
30   VP(II,J)=C 

DET=-DET 

C NORMALIZE  PIVOT  LINE 

40        OUN/PIV 

VPdI,II)=UN 

DO  50  J=1,N 
50       VPdI,J)=VP(II,J)*C 
C ELIMINATION 

DO  70  1=1, N 

IF(I.EQ.II)  GO  TO  70 

C=VP(I,II) 
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VP(I,II)=2ER0 

DO  60  J=1,N 
60   VP(I,J)=VP(I,J)-C*VP(II,J) 
70   CONTINUE 
80   CONTINUE 
C REORDER  THE  COLUMNS  OF  INVERSE  MATRIX 

DO  120  J=1,N 
C FIND  Jl  SUCH  THAT  K(J1)=J 

DO  90  J1=J,N 

JM(Ji) 

IFUJ.ED-J)  SO  TO  100 
90   CONTINUE 
100   IF(J.EQ.Jl)  BO  TO  120 
C EXCHANGE  COLUMNS  J  AND  J 1 

K(J1)=K(J) 

DO  110  I=1,N 

C=VP(I,J) 

VP<I,J)=VP(I,J1) 
110      VPU,J1)=C 
120      CONTINUE 

RETURN 

E^4D 


203 


SL3R0UTINE  JACOB (VNI, VCORE, NDIM,  INEL, VJ, VJi, DETJ) 

C  TO  EVALUATE  THE  JACOBIAN  MATRIX,  ITS  DETERMINANT  AND 

C  ITS  INVERSE  (1,2,3  DIMENSIONS) 

C  INPUT 

C  VNI    DERIVATIVES  OF  INTERPOLATION  FUNCTION  W.R.T. 

C  KSI,ETA,DZETA 

C  VCORE   ELEMENT  NODAL  COORDINATES 

C  NDIM  NUMBER  OF  DIMENSIONS 

C  INEL   NUMBER  OF  .MODES  PER  ELEMENT 

C  OUTPUT 

C  VJ     JACOBIAN  MATRIX 

C  VJI    INVERSE  OF  JACOBIAN  MATRIX 

C  DETJ   DETERMINANT  OF  JACOBIAN  MATRIX 


IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  VNI (INEL,*), VCORE (NDIM,*),VJ(*), VJI («) 

DATA  ZERO/O.  DO/,  UN/ 1.  DO/ 

C 

C FORK  THE  JACOBIAN  MATRIX 

J=l 

DO  20  JJ=1,NDIM 

DO  20  11=1, NDIM 

C=ZERO 

DO  10  IJ=1, INEL 
10   C=C+VNI(IJ,II)*VCORE(JJ,IJ) 

VJ(J)=C 
20   J=J+1 
C 1,  2,  OR  3  DIMENSIONAL  INVERSION 

GO  TO  (40, 50, 60), NDIM 
40   DETJ=VJ(1) 

IF (DETJ. EQ. ZERO)  RETURN 

VJKD4JN/DETJ 

RETURN 
50       DETJ=VJ(1)*VJ(4)-VJ(2)*VJ<3) 

IF  (DETJ.  EQ.  ZERO)  RETURN 

VJ1(1)=VJ(4)/DETJ 

VJ1(2)=-VJ(2)/DETJ 

VJI (3)=-VJ<3) /DETJ 

VJI (4)=VJ<1) /DETJ 

RETURN 
60   DETJ=VJ(1)*(VJ(5)*VJ(9)-VJ(B>*VJ<6)) 

1  +VJ(4)*(VJ(8)*VJ(3)-VJ(2)*VJ(9) ) 

2  +VJ(7)*(VJ(2)*VJ(6)-VJ(5)*VJ(3)) 
IF (DETJ. EQ. ZERO)  RETURN 

VJH1)  =  (VJ(5)*VJ(9)-VJ(6)*VJ(8))/DETJ 
VJK2)  =  (VJ(3)*VJ(8)-VJ(2)*VJ(9))/DETJ 
VJ1(3)=(VJ(2)*VJ(6)-VJ(3)*VJ(5))/DETJ 
VJ1(4)=(VJ(7)*VJ(6)-VJ(4)*VJ(9))/DETJ 
VJ1(5)=(VJ(1)*VJ(9)-VJ(7)*VJ(3))/DETJ 
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VJ1(6)=(VJ(4)*VJ(3)-VJ(6)*VJ(1))/DETJ 

VJ1(7)=<VJ(4)*VJ(8)-VJ(7)*VJ(5))/DETJ 

VJ1(8)  =  (VJ(2)*VJ(7)-VJ<8)*VJU))/DETJ 

VJ10)  =  <VJ(1)*VJ(5)-VJ(4)*VJ<2))/DETJ 

RETURN 

END 


SUBROUTINE  DNIDX (VNI, VJ1, NDIM, INEL, VNIX) 


C  COMPUTE  THE  DERIVATIVES  OF  INTERPOLATION  FUNCTIONS  WITH 

C  RESPECT  TO  X,Y,Z 

C  (1,2  OR  3  DIMENSIONS) 

C  INPUT 

C  VNI    DERIVATIVES  OF  INTERPOLATION  FUNCTIONS  WITH  RESPECT 

C  TO  KSI,ETA,DZETA 

C  VJ1    INVERSE  OF  THE  JACOBIAN 

C  NDIM   NUMBER  OF  DIMENSIONS  (1,2  OR  3) 

C  INEL   NUMBER  OF  INTERPOLATION  FUNCTIONS  (OR  NODES) 

C  OUTPUT 

C  VNIX   X,Y,Z  DERIVATIVES  OF  INTERPOLATION  FUNCTIONS 


IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  VNI  ( INEL,  *),VJ1  (NDIM,*),  VNIX  (INEL,*) 

DATA  ZERO/O.  DO/ 


DO  20  1=1, NDIM 

DO  20  J=l,  INEL 

C=ZERO 

DO  10  IJ=1,NDIM 
.10   C=C+VJ1(I,IJ)*VNI(J,IJ) 
20   VNIX(J,I)=C 

RETURN 

END 
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SUBROUTINE  SOL  (VKGS,  VKGD,  VKGI,  VFG,  KLD,  NEQ,  MP,  IFAC,  I  SOL,  NSYM,  ENERG) 


c 

TO  SOLVE  A  LINEAR  SYSTEM  (SYMMETRICAL  OR  NOT). 

c 

THE  MATRIX  IS  STORED  IN  CORE  BY  SKYLINES  IN  ARRAYS 

r 
u 

VKGS, VKGD, VK6I 

c 

INPUT 

c 

VKGS, VKGD, VKGI 

SYSTEM  MATRIX  :  UPPER,  DIAGONAL  AND 

c 

LOWER  PARTS 

c 

VFG 

SECOND  MEMBER 

c 

KLD 

ADDRESSES  OF  COLUMN  TOP  TERMS 

c 

NEQ 

NUMBER  OF  EQUATIONS 

c 

MP 

OUTPUT  DEVICE  NUMBER 

c 

IFAC 

IF  IFflC. EQ. 1  TRIANGULARIZE  THE 

c 

MATRIX 

c 

ISOL 

IF  ISOL.EQ.1  COMPUTE  THE  SOLUTION  FROM 

c 

TRIAN6ULARIZED  MATRIX 

c 

NSYM 

INDEX  FOR  NONSYMMETRIC  PROBLEM 

c 

OUTPUT 

c 

VKGS,  VKGD, VKGI 

TRIANGULARIZED  MATRIX  (IF  IFAC.EQ.l) 

c 

VFG 

SOLUTION  (IF  ISOL.EQ.1) 

c 
c— 

ENERG 

SYSTEM  ENERGY  (IF  NSYM.EQ.O) 

IMPLICIT  REAL*8  (A-H,0-Z) 

DIMENSION  VKGS(*),VKGD(*),VKGI(*),VFG(*),KLD(*) 

DATA  ZERO/O. ODO/ 


C- 


IK=1 

IF ( VKGD (D.EQ. ZERO)  GO  TO  80 

ENERG=ZERO 
C 

C FOR  EACH  COLUMN  IK  TO  BE  MODIFIED  ■ 

C 

JHK=1 

DO  100  IK=2,NEQ 
C ADDRESS  OF  THE  NEXT  COLUMN  TOP  TERM  IK+1 

JHK1=KLD(IK+1) 
C HEIGHT  OF  COLUMN  IK  (INCLUDE  UPPER  AND  DIAGONAL  TERMS) 

LHK=JHK1-JHK 

LHKKHK-1 
C ROW  OF  FIRST  TERM  TO  BE  MODIFIED  IN  COLUMN  IK 

IMIN=IK-LHK1 

IMIN1=IMIN-1 
C ROW  OF  LAST  TERM  TO  BE  MODIFIED  IN  COLUMN  IK 

IMAX=IK-1 

IF(LHKl.LT.O)  GO  TO  100 

IF(IFAC.NE.l)  GO  TO  90 

IF(NSYM.EQ.l)  VKGI (JHK)=VKGI (JHK) /VKGD (IMIN1) 

IF(LHKl.EQ.O)  GO  TO  40 
C 
C MODIFY  NON-DIAGONAL  TERM  IN  COLUMN  IK 
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JCK=JHK+1 

JHJ=KLD(IMIN) 
C FOR  EACH  TERM  LOCATED  AT  JCK  AND  CORRESPONDING  TO  COLUMN  IJ 

DO  30  I J=IMIN, IMAX 

JHJ1=KLD(IJ+1) 
C NUMBER  OF  MODIFICflTIVE  TERMS  FOR  COEFFICIENT  LOCATED  AT  JCK 

IC=«INO< JCK-JHK, JHJ1-JHJ) 

IF(IC.LE.O.AND.NSYM.EQ.O)  SO  TO  20 

C1=ZES0 

IF(IC.LE.O)  SO  TO  17 

J1=JHJ1-IC 

J2=JCK-IC 

IF(NSYM.EQ.l)  SO  TO  15 

VKSS ( JCK) =VK6S ( JCK) -SCAL ( VKBS ( Jl ) , VKSS ( J2) , IC) 

SO  TO  20 
15   VKGS( JCK) =VK6S( JCK) -SCAL <VK6I(J1), VKSS (J2),IC) 

C1=SCAL ( VK6S ( Jl ) , VKSI ( J2) ,  IC) 
17   VKSI(JCK)=<VKGI(JCK)-C1)/VK6D(IJ) 
20   JCK=JCK+1 
30   JRJ=JHJ1 
C 

C MODIFY  DIAGONAL  TERM 

C 

40   JCK=JHK 

CDIA6=ZER0 

DO  70  IJ=IMIN1,IMAX 

C1=VK6S(JCK) 

IF(NSYM.EG.l)  60  TO  50 

C2=C1/VKGDUJ) 

VKSS  ( JCK)  =C2 

GO  TO  60 
50   C2=VKGI(JCK) 
60   CDIAS=CDIA6+C1*C2 
70   JCK=JCK+1 

VK6D(IK)=VKGD(IK)-CDIA6 

IF(VKGDdK))  9O,S0,9O 
80   WRITE (MP, 2000)  IK 
2000  FORMATC  ***  ERROR, ZERO  PIVOT  EQUATION  ',15) 

STOP 
C 

C SOLVE  LOWER  TRIANGULAR  SYSTEM 

C 

90  IF(ISOL.NE.l)  GO  TO  100 

IF(NSYM.NE.l)  VF6(IK)=VF6<IK)-SCAL(VKGS(JHK),VFB(IMINl),IJiK) 

IF(NSYM.EQ.l)  VFG(IK)=VFG(IK)-SCAL(VKGI(JHK),VFS(IMIN1),LHK) 
100   JHK=JHK1 

IF(ISOL.NE.l)  RETURN 
C 

C SOLVE  DIAGONAL  SYSTEM 

C 
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IF(NSYM.EQ.l)  GO  TO  120 

DO  110  IK=1,NEQ 

C1=VKGD(IK) 

C2=VFG(IK)/C1 

VFG(IK)<2 
110   ENERG=ENERG+C1*C2*C2 
C 

C SOLVE  DIAGONAL  SYSTEM 

C 

120   IK=NEQ+1 

JHK1=KLD(IK) 
130   IK=IK-1 

IF (NSYM. EQ. 1 )  VFG ( IK) =VFG ( IK) /VKSD (IK) 

IF(IK.EQ.l)  RETURN 

C1=VFG(IK) 

JHK=KLD(IK) 

JBK=JHK1-1 

IF(JHK.GT.JBK)GO  TO  150 

IJ=IK-JBK+JHK-1 

DO  140  JCK=JHK,JBK 

VF6(IJ)=VFS(IJ)-VK6S(JCK)*C1 
140   IJ=IJ+1 
150   JHK1=JHK 

GO  TO  130 

END 

FUNCTION  SCftL(X,Y,N) 


D- 


£r 


C    INNER  PRODUCT  OF  VECTORS  X  AND  Y  OF  LENGTH  N 

C      (FUNCTION  TO  BE  yRITTEN  EVENTUALLY  IN  ASSEMBLER) 


IMPLICIT  REAL*8(A-H,0-Z) 
DIMENSION  X(*),Y(*) 
DATA  ZERO/0. ODO/ 


SCAL=ZERO 
DO  10  1=1,  N 
10   SCAL=SCAL+X(I)*Y(I) 

RETURN 
END 
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SUBROUTINE  BLLIND 


C    TO  CALL  BLOCK  'LIND' 

C    TO  ASSEMBLE  AND  TO  SOLVE  A  LINEAR  PROBLEM  WEN  MATRIX  KG  IS 

C    STORED  BLOCKWISE  ON  DISK 


IMPLICIT  REAL*8(A-H,0-Z) 

CHARACTER**  TBL 

COMMQN/COOR/NDIM,  NNT,  NDLN,  NDLT,  FNULL  (3) 

COMMON/ELEM/NULL  (4) ,  ME,  MMLL  (2) 

CQMMQN/ASSE/NSYM,  NKS,  NKE,  NDLE 

COMMON/RESO/NEG, NRES, MRES 

(MON/LIND/NLBL,  NBLM,  MKG1,  MK62 

COMMON/ES/M,  MR,  MP,  Ml,  M2,  M3,  M4,  M5,  MDUMMY  (5) 

COMMON/ALLOC/NVA, IVA, IVAMAX, NREEL, IDUMMY 

COMMON/LOC/LCORG,  LDLNC,  LNEQ,  LDIMP,  LPRNG,  LPREG,  LLD,  LLOCE,  LCORE,  LNE, 
1  LPRNE,  LPREE,  LDLE,  LKE,  LFE,  LKSS,  LKGD,  LKGI ,  LFS,  LRES,  LDLG,  LDUMMY  (4) 

COMMON  VA<1) 

DIMENSION  TBL(10),IN<3) 

DATA  DEUX/2. DO/, NBLMAX/lOO/ 
C+++    THIS  IS  COMMENTED  OUT  BECAUSE  OF  AN  MS  FORTRAN  COMPILER 
C+++    BUG  WHICH  HILL  NOT  INITIALIZE  *LARGE  ARRAYS.  THIS  ARRAY 
C+++    IS  NOW  INITIALIZED  BY  A  CALL  TO  A  DUMMY  SUBROUTINE 
C+++    INITBL  WHICH  EXISTS  SOLELY  TO  INITIALIZE  THIS  ARRAY 
C 

C    DATA  TBL/' KGS  ','KGD  ','K6I  ','FS  ','KE  ','FE  ','RES  ', 'DLE  ', 
C   1  'EB  ','PB  '/ 
C 
C      HERE  IS  THE  CALL  TO  GET  AROUND  THE  COMPILER  BUG 

CALL  INITBL (TBL, 'LIND') 
C 

C+++    ALL  OF  THIS  IS  TO  GET  AROUND  THE  MICROSOFT 
C+++    COMPILER  BUG 


C 


C FILE  NUMBERS 

IF  (Ml.  ED.  0)  M1=MR 

IF(M2.EQ.O)  M2=ME 

IF(M3.EQ.0>  M3=MRES 

IF(M4.EQ.O)  M4=MKS1 

IF(M5.EQ.O)  M5=MKG2 

OPEN  (M3,  FILES'  MM3$.  DAT' ,  STATUS^'  NEW' ,  FORM='  UNFORMATTED' ) 

OPEN (M4, FILE=' $$M4$. DAT' , STATUS='  NEW' , FORM=' UNFORMATTED' ) 

OPEN  (M5,  FILE='  $$M5$.  DAT' ,  STATUS='  NEW' ,  FORM='  UNFORMAnED' ) 
C READ  BLOCK  PARAMETERS 

READ(M1,1000)  IN 
1000  FORMAT (315) 

IF(IN(l).NE.O)  NRES=1 

NLBL=IN(2) 

NBLM=IN(3) 
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WRITE (MP, 2000)  M,NRES 
2000  FORMAT (//'  ON  DISK  ASSEMBLAGE  AND  LINEAR  SOLUTION  (M=' , 12, ' )'/ 
1  '  ',42('=')/15X,' INDEX  FOR  RESIDUAL  COMPUTATION    <NRES)=\I5) 

IF(LKSD.ED.l)  CALL  ESPACE(N£Q, 1,TBL(2),LKSD) 

IF(LF6.EQ.l)  CALL  ESPACEfNEQ, 1,TBL(A),LFS) 

IFILKE.EQ.1)  CALL  ESPACE(NKE,  1,TBL(5),LKE) 

IF(LFE.EQ.l)  CALL  ESPACEfNDLE, 1,TBL(6),LFE) 

IF(LRES.£Q.l)  CALL  ESPAC£(NDLT,  1,TBL(7),LRES) 

IF(LDLE.EQ.i)  CALL  ESPACE(NDLE,  1,TBL(8),LDLE) 
C FIND  BLOCK  LENGTH  BLLD  44 

13=2 

I2=1+NSYM 

IF(NLBL.EQ.O)  SO  TO  10 

IF(NBLM.EQ.O)  NBLM=NKG/NLBL+2 

GO  TO  30 
10   Il=NVA-IVA-(2*NBLMAX+2)/NREEL-l 

IFdl.GE.  (NKG*I2+2))  GO  TO  20 
C CASE  WHERE  MATRIX  IS  TO  BE  SEGMENTED 

NLBL=I1/(DEUX*I2) 

NBLM=NKG/NL6L+2 

GO  TO  30 

C CASE  WHERE  MATRIX  IS  IN  CORE 

20   NLBL=NKG 

NBLM=1 

13=1 
30   WRITE (MP, 2010)  NLBL,NBLM 
2010  FORMAT ( 

1  15X, 'BLOCKS  LENGTH  IN  KG  (NLBL)=',I5/ 

2  15X,'MAX.  NUMBER  OF  BLOCKS  IN  KG  =\ 15) 
CALL  ESPACE(NBLM+1,0,TBL(9),LEB) 

CALL  ESPACE(NBLM,0,TBL(10),LPB) 
IF(LKGS.EQ.l)  CALL  ESPACE(NLBL*I3, 1,TBL(1),LKGS) 
IF(NSYM.EQ.l.AND.LKGI.EQ.l)  CALL  ESPACE(NLBL*I3, 1,TBL(3),LKGI) 
CALL  EXLIND(VA(LLD),VA(LDIMP),VA(LLOCE),VA(LCORE),VA(LPRNE), 

1  VA(LPREE),VA(LNE),VA(LKE),VA(LFE),VA(LKGS),VA(LKGD), 

2  VA(LKGI),VA(LFG),VA(LCORG),VA(LDLNC),VA(LNEQ), 

3  VA(LRES),VA(LDLE),VA(LEB),VA(LPB)) 
RETURN 

END 
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SUBROUTINE  EXLIND(KU),  VDIMP,  KLOCE,  VCORE,  VPRNE,  VPREE,  KNE,  Vtt,  VFE, 
1     VKGS,  VKGD,  VKGI,  VFG,  VCORG,  KDLNC,  KNEQ,  VRES,  VDLE,  KEB,  KPB) 


C    TO  EXECUTE  BLOCK  'LIND' 

C    ASSEMBLE  AND  SOLVE  fl  LINEAR  PROBLEM  WHEN  MATRIX  KG  IS  STORED 

C    BLGCKWISE  ON  DISK 

IMPLICIT  REAL*fl(A-H,0-Z) 

COMMON/ASSE/NSYM, NKS, NKE,  NDLE 

COMMON/RESO/NEQ, NRES, MRES 

COMMOK/LIND/NLBL,  NBLM,  MKG1,  MK62 

COMMON/ES/M,  MR,  MP,  Ml,  M2,  M3,  MDUMMY  (7) 

DIMENSION  KLD(«),VDIMP(*),KLOCE(*),VCORE<*),VPRNE(*),VPREE(*), 

1  KNE(*),VKE(*),VFE(*),VKGS(*),VKGD(*),VKGH*),VFG(*),VCORG(#), 

2  KDLNC(*),KN€Q(*),VRES(*),VDLE(*),KEB(*),KPB(*) 

c 

REWIND  M3 
C FORM  TABLES  EB  AND  PB  DEFINING  EQUATION  BLOCKS 

CALL  EQBLOC (KLD, NLBL, NBLM, NEQ, KEB, KPB) 

WRITE(MP,2000)  NBLM 
£000  FORMAT (15X,' NUMBER  OF  BLOCKS  IN  KG  (NBLM)=',I5) 

IF(M.LT.2)  GO  TO  10 

I1=NBLM+1 

WRITE(MP,2010)  (KEB(I),I=1,I1) 
2010  FORMAT(/'  FIRST  EQUATION  IN  EACH  BLOCK  (EB)'/(5X,20I5)) 

WRITE (MP, 2020)  (KPB(I), 1=1, NBLM) 
2020  FORMATS'  FIRST  BLOCK  CONNECTED  TO  EACH  BLOCK:  <PB)'/(5X,20I5)) 

C gflvE  FG  UNMODIFIED  FOR  PRESCRIBED  B.C. 

10   WRITE  (M3)  <VFG(I),I=1,NEQ) 

IF(M.GE.2)  WRITE  (MP,  2030)  (VFG(I),  1=1, NEQ) 
2030  FORMATS'  GLOBAL  LOAD  VECTOR  UNMODIFIED  FOR  THE  B.C.  (FG)' 

1/(1X,10E12.5)) 
C ASSEMBLE  KG,  MODIFY  FG  FOR  B.C.  AND  SAVE  MODIFIED  FG 

CALL  ASKGD  (KLD,  VDIMP,  KLOCE,  VCORE,  VPRNE,  VPREE,  KNE,  VKE,  VFE,  VKGS, 
1  VKGD,  VKGI,  VFG,  VDLE,  VRES,  KEB) 

WRITE (M3)  (VFG(I),I=1,NEQ) 
C PRINT  FG 

IF(M.GE.2)  WRITE  (MP,  2040)  (VFG  (I),  1=1,  NEQ) 
2040  FORMATS  GLOBAL  LOAD  VECTOR  MODIFIED  FOR  THE  B.C.  (FG)' 

1  /(1X,10E12.5)) 
C 

C SOLVE 

r 

20   CALL  SOLD(VKGS, VKGD, VKGI, VFG, KLD, NEQ, MP,  1,1, NSYM,ENER6,KEB,KPB) 

IF(NSYM.NE.l)  WRITE  (MP,  2050)  ENERG 
2050  FORMAT (15X,» ENERGY   (ENERG)=', 1E12.5) 

C KG  PIVOTS  AND  DETERMINANT 

30   CALL  PRPVTS(VKGD) 

C PRINT  OUT  THE  SOLUTION 

WRITE (MP, 2060) 
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2060  FORMAT (//'  SOLUTION'//) 

CALL  PRSOL  (KDLNC,  VCORG,  VDIMP,  KNEQ,  VFS) 
C 

C EVALUATE  AND  PRINT  GRADIENTS 

C 

CALL  ASGRAD(KU),  VDIMP,  KLOCE,  VCORE,  VPRNE,  VPREE,  KNE,  VKE,  VFE,  VKGS, 
1  VKGD,VKGI,VFG,VDLE,VRES> 
C 

C EVALUATE  AND  PRINT  EQUILIBRIUM  RESIDUALS  AND  REACTIONS 

C 

C READ  VECTOR  FS  AND  CHANGE  ITS  SIGN 

REWIND  H3 

READ(M3>  <VRES(I),I=1,NEQ) 

DO  40  1=1,  NED 
40   VRES(I)=-VRES(I) 
C ASSEMBLE  RESIDUALS  AND  REACTIONS 

CALL  ASRESDU,  1,  KLD,  VDIMP, KLOCE,  VCORE,  VPRNE,  VPREE,  KNE,  VKE,  VFE, 
1  VKGS,VKGD,VKGI,VFG,VDLE,VRES,VRES(NEQ+D) 
C OUTPUT 

WRITE  (MP,  2070) 
2070  FORMAT(//'  EQUILIBRIUM  RESIDUALS  AND  REACTIONS'//) 

CALL  PRSOL (KDLNC, VCORG, VRES (NEQ+1 ) , KNEQ, VRES) 

RETURN 

END 
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SUBROUTINE  EQBLOC(KLD, NLBL,  NBLMAX,  NEQ,  KEB, KPB) 

C  TO  FORM  TABLES  KEB  AND  KPB  DEFINING  EQUATION  BLOCKS 

C  INPUT 

C  KLD  ARRAY  OF  A  ADDRESS  OF  COLUMN  TOP  TERMS  IN  KG 

C  NLBL  BLOCKS  LENGTH 

C  NBLMAX  MAX.  NUMBER  OF  BLOCKS  ALLOWED 

C  NEQ  NUMBER  OF  EQUATIONS 

C  OUTPUT 

C  KEB  ARRAY  CONTAINING  THE  NUMBERS  OF  FIRST  EQUATIONS  IN 

C  EACH  BLOCK  (DIMENSION  NEQ+1) 

C  KPB  ARRAY  CONTAINING  THE  NUMBER  OF  FIRST  BLOCKS  CONNECTED 

C  TO  EACH  BLOCK  (DIMENSION  NEQ) 

C  NBLMAX  NUMBER  OF  BLOCKS 

COMKON/ES/M,  MR,  MP,  MDUMMY  ( 10) 

DIMENSION  KLD(*),KEB(*),KPB<») 
C 

C FIRST  BLOCK 

ILBL=0 

NBL=1 

KEB(1)=1 

KPB(1)=1 

IMIN=1 
C FOR  EACH  EQUATION 

DO  70  IK=1,NEQ 
C ADDRESSES  FOR  COLUMN  IK 

JHK=KLD(IK) 

JHK1=KLD(IK+1) 

LBK1=JHK1-JHK 

IF(LBK1.LE.NLBL)  GO  TO  10 

WRITE  (MP,  2000)  IK,LBK1,NLBL 
2000  FORMAT ('*«  ERROR, COLUMN',  15,'  GREATER (',15,') THAN  BLXKC  ,15,' 
1)') 

STOP 

C CHECK  FOR  NEW  BLOCK 

10   ILBL=ILBL+LBK1 

IF(ILBL.LE.NLBL)  GO  TO  60 

NBL=NBL+1 

IF (NBL.LE.  NBLMAX)  GO  TO  £0 

WRITE (MP, 2010)  IK 
2010  FORMATC  ***  ERROR,  EXCESSIVE  NUMBER  OF  BLOCKS,  EQUATION' , 15) 

STOP 
20   KEB(NBL)=IK 

ILBL=LBK1 
C SEARCH  FOR  FIRST  BLOCK  CONNECTED  TO  COMPLETED  BLOCK 

IB=NBL 
40   IF(IMIN.6E.KEB(IB)>  GO  TO  50 

IB=IB-1 

GO  TO  40 
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50   KPB(NBL-1)=IB 

IHINsIK 

c s£ftRCH  FOR  MINIMUM  ROW  NUMBER  FOR  COLUMN  TOP  TERMS 

60    I=IK-LBK1+1 

IF(I.LT.IMIN)IMIN=I 
70   CONTINUE 
C FIRST  BLOCK  CONNECTED  TO  LAST  BLOCK 

IB=NBL 
80   IF(IMIN.6E.KEB(IB))  GO  TO  90 

IB=IB-1 

GO  TO  80 
90   KPB(NBL)=IB 

KEB(NBL+1)=NEQ+1 

NBLMflX=NBL 

RETURN 

END 


214 


SUBROUTINE  flSKGD (KLD, VDIMP, KLOCE, VCORE,  VPRNE, VPREE, KNE, VKE, Vf  E, 
1  VKGS,VKGD,VKGI,VFG,VDLE,VRES,KEB) 


C    TO  ASSEMBLE  GLOBAL  MATRIX  KG  (ELEMENT  FUNCTION  TYPE  3) 
C    TAKING  INTO  ACCOUNT  OF  PRESCRIBED  NON  ZERO  D.O.F. 
C    VERSION  :  MATRIX  KG  STORED  BLOCKWISE  ON  FILE  MA 


IMPLICIT  REAL*8(A-H,0-Z) 

(EMMON/COND/NCLT,  NCLZ,  NCLNZ 

COMMON/ELEM/NELT,  NN&,  NTPE,  NGRE,  ME,  NIDENT,  MMJLL 

CCMM0N/ASSE/NSYM,MFILLR(3) 

COMMON/RESO/NEQ, NFILLR (2) 

CC»WRGDT/IEL,  ITPE,  ITPE1,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDEG,  IPS 
1  ,IC0D,NULL(3) 

COMMON/LIND/NLBL, NBLM, MKG1,  MKG2 

COMMON/E3/M,  MR,  MP,  Ml ,  M2,  M3,  M4,  M5,  MDUWMY  (5) 

DIMENSION  KLD(*>,VDIMP<*),KLOCE(*),VCORE(*),VPRNEU),VPREE(*>, 
1  KNE(*),VKE(*),VFE(*),VKGS(*),VKGD(*),VKGI(*),VFG(*),VDLE(*), 
i  VRES(*),KEB<*> 

DATR  ZERQ/O.DO/ 

C 

C REWIND  FILE  M4 

REWIND  M4 
C LOOP  OVER  THE  BLOCKS 

DO  80  IB=1,NBLM 
C INITIALIZE  THE  BLOCK 

DO  10  I=1,NLBL 

IF(NSYM.EQ.l)  VKGI(I)=ZERO 
10   VKGS(I)=ZERO 

IE1=KEB(IB) 

IE2=KEB<IB+1)-1 
C REWIND  ELEMENT  FILE  (M2) 

REWIND  M2 
C LOOP  OVER  THE  ELEMENTS  flSKD  34 

DO  70  IE=1,NELT 
C READ  AN  ELEMENT 

CALL  RDE1^(M2,KL0CE,  VCORE,  VPRNE,  VPREE,  KNE) 
C CHECK  IF  BLOCK  IS  AFFECTED  BY  THIS  ELEMENT 

DO  20  ID=1,IDLE 

J=KLOCE(ID) 

IF  (J.  LT.  IE1 .  OR.  J.  BT.  IE2)  GO  TO  20 

GO  TO  40 
20  CONTINUE 
30   IF(IB.NE.1.0R.(NCLNZ.EQ.0.AND.IB.EQ.1)>  GO  TO  70 

C EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

40        IFdTPE.EQ.  ITPE1)  GO  TO  50 

IC0D=2 

CALL  ELEMLB (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

C FORM  ELEMENT  MATRIX 

50   IC0D=3 
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CALL  ELEMLB ( VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 
C PRINT  ELEMENT  MATRIX 

IF(M.LT.2)  GO  TO  60 

IF(NSYM.EQ.O)  IKE=IDLE*(IDLE+l)/2 

IF(NSYM.EQ.l)  IKE=IDLE*IDLE 

WRITE (MP, 2000)  IEL, <VKE(I) , 1=1, IKE) 
2000  FORMAT!/'  MATRIX  (KE)  ,  ELEMENT:',  15/ ( 10X,  10E12. 5)) 

C MODIFY  FG  FOR  THE  PRESCRIBED  NON  ZERO  D.O.F. 

60    IF  (NCLNZ.  NE.  0.  AND.  IB.  EQ.  1 )  CALL  MODFG  ( IDLE,  NSYM,  KLOCE,  VDIMP,  VKE, 

1  VFS) 
C ASSEMBLE  ASKD  61 

CALL  ASSELD(1,0,IDLE,NSYM,IE1,IE2, KLOCE, KLD, VKE, VFE,  VK6S,  VKGD, 
1  VKGI,VFG) 

ITPE1=ITPE 
70   CONTINUE 
C END  OF  A  BLOCK 

WRITE m)   <VK6S(I),I=1,NLBL) 

IF(NSYM.EQ.i)  WRITE(MA)  (VKGKI),  I=1,NLBL) 

IF(M.LT.2)  GO  TO  80 

WRITE (MP, 2010)  IB, (VKGS(I),I=1,NLBL) 
2010  FORMATC  UPPER  TRIANGLE  BLOCK  OF  (KG)  N0:',I5/(1X, 10E12.5)) 

IF(NSYM.EQ.l)  WRITE  (MP,  2020)  IB,  (VKGKI),  1=1,  NLBL) 
2020  FORMATC  LOWER  TRIANGLE  BLOCK  OF  (KG)  NO:', 15/ (IX, 10E12.5)) 
80   CONTINUE 

IF(M.GE.2)  WRITE  (MP,  2030)  (VKGD(I),  1=1, NEQ) 
2030  FORMATC  DIAGONAL  OF  (KG)'/(1X, 10E12.5)) 

RETURN 

END 
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SUBROUTINE  PSSELDdKS,  IF3,  IDLS,NSYM,  IE!,  IE2, KLOCE.  KLD,  VKE,  VFE, 
1  WSS,VKeD,VKSI,VFS) 


C  TQ  ASSEMBLE  ELEMENT  MATRIX  (SYMMETRIC  DR  NOT)  AND/OR  VECTOR. 

C  THE  MATRIX  IS  STORED  BLOCKKISE  ON  DISK 

C     INPUT 

C       IKS    IF  IKG.EQ.l  ASSEMBLE  E.EMENT  MATRIX  ii 

C       IFS    IF  IFG.EQ.1  ASSEMBLE  ELEMENT  VECTOR  FE 

c     idle  number  of  d.o.f.  of  the  eleme^~ 

C  NSYM   0=SY«WETRIC  PROBLEM,  1=NGN  SYMMETRIC  PROBLEM 

C  IE1, IE2  -IRST  AND  LAST  COLUMN  OF  KG  TO  BE  ASSE*3.ED 

C    ■   KLOCE   ELEMENT  LOCALIZATION  VECTOR 

C  KLD    CUMULATIVE  COLUMN  HEI8KTS  IN  KG 

C  VKE    ELEMENT  MATRIX  KE  (FULL  OR  UPPER  TRIANGLE  BY 

C  DESCENDING  COLUMN) 

C  VFE    ELEMENT  VEC'OR  FE 

C     OUTPUT 

C  VKGS,VK3D,VKSI   GLOBAL  MATRIX  (SKYLINE) 

C  (SYMMETRIC  OR  NOT) 

C  VFS    GLOBAL  LOfiD  VECTOR 

C===========================================================: 

IMPLICIT  REAL*8(fi-H,G-Z> 

DIMENSION  KLOCE (*),KLD(*). VKE C*),VFEC*),VK6S(*),VK6D(*), 

1  VKGI(*),VFG(«) 


C ASSEMBLE  E:-EMENT  MATRIX 

r 

IFCKG.NE.  1)  GO  TO  100 

I0BL0C=KLD(IE1)-1 

IESG=IDLE 

IE01=i 
C FOR  EACH  COLUMN  OF  KE 

DO  90  JD=1, IDLE 

IFWSYM.NE.1)  IEQO=JD 

JL=KLQCE(JD) 

IF(JL)  90,90,10 
10   IO=KLD(JL+1)-IOBLOC 

IEQ=IEQ1 

IQ=1 

I~ULLT.IE1.0R.JL8T.IE2)  GO  TO  90 
C FOR  EACH  ROW  OF  KE 

DO  80  ID=1, IDLE 

IL=KLOCE(ID) 

IF(NSYM.EQ.l)  GO  TO  30 

IF(ID-JD)  30,20,20 
EO        IQ=ID 
30        IF<IL)  80,80,40 
40        IJ=JL-IL 

IF(IJ)  80,50,60 
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C DIAGONAL  7ER*S 

50 


-.13 


c- 

60 


L— 


eo 

90 


vkgd(Il)=vkgd<:l)+we<:eq) 

S3  TQ  30 

—  j"er  triangle  terms  in  kg 
i=io-:j 
\kgs<i>=vx6s(i)+vkece3) 

IF(NSYM.NE.l)  GO  70  80 

—  LOWES  7RISNGlE  TERMS  IN  KG 
IEQI=<ID-i)*IDLE+JD 

•^GKlJ^KGKD+VKEdEai) 
IEG=IEQ+IQ 

ieoi=;egi+ieqo 

~  ASSEMBLE  ELEMENT  VECTOR 


100 


110 
120 

130 


IF(IFG.NE.l)  SO  70  130 

DC  120  ID=1, IDLE 

IL=KLQCE(ID) 

IF(IL)  120,120,110 

VFG(IL)=VF'3(IL)+VFECD) 

CONTINUE 

RETURN 

END 
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&-FROUTINE  SQUXVKGS,  VKSD,  VKSI,  VF8, KLD,  NEQ,  MP,  Ir3C,  ISC.,  NSYX,  ENERG 

1  ,KEB,KP5) 


TO  SOLVE  A  LINEAR  SYSTEM  (SYMMETRICAL  OR  NOT). 
THE  MATRIX  IS  STORED  ON  FILE  M4  BY  SKYuI^ES. 


SYSTEM  MATRIX  :  UPPER,  DIAGONAL  PND  LGWE? 

PARTS 

SECOND  MEMBER 

ADDRESSES  OF  COLUMN  TOP  TERMS 

DUMBER  OF  EQUATION'S 

OUTPUT  DEVICE  NUMBER 

IF  IFAC.EB.1  TRIANGULARIZhTION  GF 

THE  MATRIX 

IF  I3CL.EQ.1  COMPUTE  SOLUTION  FROM  THE 

TRIANGULARIZED  MATRIX 

INDEX  FOR  NON  SYMMETRIC  PROBLEM 

NUMBER  OF  FIRST  EQUATION  IN  EACH 

BLOCK 

NUMBER  OF  FIRST  BLOCK  CONNECTED  TO  EACH 

BLOCK 

TRIANGULARIZED  MATRIX  (IF  IFAC.EQ.l) 
SOLUTION  (IF  ISOL.EQ.i) 
SYSTEM  ENERGY  (IF  NSYM.EQ.O) 


C 

AFTER  TRIANGULARIZA 

r 

INTPUT 

C 

VK8S,VKSD,VKSI 

r 
u 

VrS 

r 

KLD 

r- 
L 

NEQ 

c 

MP 

c 

IFAC 

r 

•SOL 

c 

c 

MSYM 

c 

KEB 

c 

c 

KPB 

J-. ■ 

u 

c 

OUTPUT 

c 

VK6S,VKGD,VKSI 

c 

VFG 

u 

ENERB 

IMPLICIT  REAL*8  !A-H,0-Z) 

COMMON/LIND/NLBL, NBLM, NDUMMY (2) 

CQMMON/ES/M,  MR,  MPi,  Ml,  M2,  M3,  M4,  M5,  MDUMMY  (5) 

DIMENSION  VKGSU),VKGD(*),VKGI!*),VFG(*),KLD(*),KEB(*),KPB(*) 

DATA  ZERO/O. ODO/ 

REWIND  M4 
REWIND  M5 
IK=1 

IF (VKSD (l).EQ. ZERO)  GO  tu  30 
E\ERG=ZERG 

n 

Li 

C FjR  EACH  BLOCK  TO  BE  TRIANGULARIZED 

JlMI3*=NLBL+i 
J1MA.X=NLBL+NLBL 

DC  105  IB=1,NBLM 

C READ  A  BLOCK  "0  BE  TRIANGULARIZED 

READ  (MA:  !vK3S(I},I=i,!OL) 

IF(NSY^.Ei:i  REAB(M4)  (VKGKI),  I=i,NLBL) 

C PfiRAMATSRS  "A  &.QCK  IB 

IKO=KES(IB) 

IKl=KEB(IS-:i-: 
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IBO=KPB(IB) 
JO*KLD(IKOM 
IF(IBO.EQ.IB)  30  TO  11 

C BACKSPACE  DM  CONNECTED  BLOCKS 

I1=IB-IBC 
DO  10  1=1,11 
BACKSPACE  M5 
IF(NSYM.EQ.i)  BACKSPACE  15 

10  CONTINUE 

C FOR  EACH  CONNECTED  B.OCK  (INCLUDING  BlCCK  IB  ;T3E_F) 

11  DO  103  IBC=IBO,IB 
IFUK.EQ.IB)  S3  TO  12 
REfiD(M5)    (VKGS(I),  I=JiyiN,;iyfi)() 

IF (NSYM. EQ.  1 )  READi.MS)    (VKalC),  I=J1WIN,  J1MAX) 
C PARAMETERS  CF  CONNECTED  BLOCK 

12  II0=KEB(I8C) 
II1=KEB(IBC+1>-1 
JC0=KLD(II0)-1 
IFdK.NE.IBi  JCO=JCO-NLBL 

C 

C FOR  EACH  COLUMN  OF  BLOCK  IB  TO  rE  X0DIrIE3 

C 

DO  100  IK=IK0,IK1 

JKK=KLD(IK)-J0 
C ADDRESS  OF  NEXT  COLUMN  TO?  TERM  IK+1 

JHKi=KLD(IK+l)-JO 
C HEIGHT  OF  COLUMN  IK  (INCLUDE  'J^PEx  AND  DIAGOnA.  TE33S) 

LHK=JHK1-JHK 

LHK1=LHK-1 
C ROW  OF  FIRST  TERM  TC  BE  MODIFIED  IV  COLUMN  IX 

IMIN=IK-LHK1       • 

•IHIN1=IMN-1 
C ROW  OF  LAST  TERM  TO  BE  MODIFIED  IN  COLLIN  IK 

IMAX=IK-i 

IF(LHKl.LT.O)  SO  TO  100 

IFdFAC.NE.i)  BO  TO  90 

IF(NSYM.EO.O)  50  TO  14 

IB1=IB 

IF(IMINl.LLIKO)   IB1=IB0 

IF  <  IK.  EQ.  IB1 )  WSI  ( JHO  =VKSI  (JHK)  /VKSD  CIMIN1) 
14        IF  ( IK.  EQ.  IB.  AND.  IK.  EQ.  IKO)  30  TQ  40 

IF(LHKl.EQ.O)  GO  TO  40 

C FIND  FIRST  AND  LAST  ROW  QF  COLUMN  IK  AFFECTED 

C      BY  CONNECTED  BLOCK  IBC 

IMINC=MAXO(IMIN,IIO) 

IMAXC=«IN0(IMAX,II1) 

IFUMINC.GT.IMAXC)  GO  TO  40 
C 

C MODIFY  NON  DIAGONAL  TERMS  OF  COLUMN  IK 

C 

JCK=JHK+IMINC-IMIN1 
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JHJ=KLD(IMINC)-JCO 
C FOR  EACH  TERM  T0  BE  MODI-ZED,  LOCATED  AT  ;CK 

DO  30  IJ=IMNC,  IMAXC 

JHJi=KLD(IJ+l)-JCO 
C NUMBER  OF  MQDIFICATIVE  TERMS  OF  COEFFICIENT  _3Cfi"ZD  ST  JCK 

IC=MINO(JCK-JHK, JHJ1-JHJ) 

IFaCLE.O.flN0.!ffiYK.EQ.O)  BO  TO  20 

C1=ZER0 

IF(IC.LE.O)  GO  TO  17 

J1=JHJ1-IC 

J2=JCK-IC 

IF(NSYM.EQ.l)  GO  TO  15 

VKGS (JCK ) =VKSS ( JCK) -SCftL ( VKGS  C Jl ) , VKS3  i  J2) , 10 

SO  TO  20 
15   VKGS (JCK) =VKSS (JCK) -SCfiL  CVKGI ( Jl ) , VK35 ( J2) ,10 

Cl=SCAL(VKGS(Ji),VKSI(J2},IC) 
17   VKBI (JCK) = (VKSI (JCK) -CI ) /VKSD ! I J) 
20   JCK=JCK+1 
30   JHJ=JHJ1 
C 

C MODIFY  DIAGONAL  TERM 

C 

40   IF(I8C.NE.IB)  GO  TO  90 

JCK=JHK 

CDIfiG=ZERO 

DO  70  IJ=IMIN1,IMAX 

C1=VKGS(JCK) 

IF<NSY*.E3.1)  SO  TO  50 

C2=C1/VK3D!IJ) 

VKGS (JCK) =C2 

GO  TO  60 
50   C2=VKGI (JCK) 
60   CDIA6=CDIAS+C1*C2 
70   JCK=JCK+1 

vkgd(IK)=vkgd(ik)-:d:ag 

IF(VKGDdK))  50,80,90 
80   WRITE (MP, 2000)  IK 
2000  FORMAT  ('  ***  ERROR,  ZERO  PIVOT  EQUATION  ',15) 

STOP 
C 

C SOLVE  LOWER  TRIANGULAR  SYSTEM 

C 

90  IFdSOL.NE.  1)  60  TO  100 

IF(IBC.NE.IB)  GO  TO  100 

IF(NSYM.NE.l)  VFG(IK)=VFG(IK)-SCAL(y^eS;;-K;,VF3CMINl),_HKi 

IF (NSYM. EQ.  1 )  VFG(IK)=VFG(R)-SCAL:VKGI(;h-:;!V-S!IMIN1),LHK) 
100  CONTINUE 

C NEXT  CONNECTED  BLOCK 

103  CONTINUE 

C END  OF  ELIMINATION  OF  THIS  BLOCK 

IF(IB.EQ.NBLM)  SO  TO  105 
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WRITE1M5)  (VKSS(I),I=i,NLSL) 

IFfNSYM.ES.  1)  KRITE(MS)  (VKBId),  I=;,NLBL) 

105   CONTINUE 

IF(ISOL.NE.l)  RETURN 
C 

C SOLVE  DlflGQNflL  SYSTEM 

C 

IF(NSYM.EQ.l)  GC  TO  1£0 

DO  110  IK=1,N£D 

C1=VKSD(IK) 

C2=VFG(IK)/C1 

VFGdX)=C2 
110      ENE.R6=ENERS+Ci*C2*C£ 
C 

C SOLVE  UPPER  TRIAN6ULAR  SYSTEM 

C 

120      IB=NBU 

IKO=KEBdB)-l 

J0=OdK0+l)-i 

IK=NEQ+1 

jhki=kld:ik)-jo 
c for  every  equation  ^rom  neq  to  1 

130   IK=IK-1 

C READ  fl  BLOCK  IF  REQUIRED 

IFdK.NE.IKO)  30  TO  135 

BACKSPACE  JS 

IF(NSYN.EG.l)  BACKSPACE  M5 

READ(M5)    (VK8Sd),I=i,OL) 

IF(NSYM.EG.l)  REflD(M5J   (VK6Id),I=l,NLBL) 

BACKSPACE  l«5 

IF(NSYM.EQ.l)  BACKSPACE  K 

IB=IB-1 

IKO=KEBdB)-l 

J0=KLD(IK0+1)-1 

JHKl=KLDdK+l)-JO 

C MODIFY  THE  UNKNOWN  VECTDR 

135      IF(NSYM.EQ.l)  VFG(IK)=VFG(IK)/VKGDCK) 

IF  ( IK.  ED.  1)  RETURN 

C1=VFB(IK) 

JHK=KLD(IK)-J0 

JBK=JHK1-1 

IF(JHK.GT.JBK)GO  TO  150 

IJ=IK-JBK+JHK-i 

DO  140  JCK=JHK,JBK 

VFGdJ)=VFG(IJ)-VKGS(JCK)*Cl 
140      IJ=IJ+1 
150      JHK1=JHK 

SO  TO  130 

END 
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SUBROUTINE  BLN^IN 

C         TO  CPLL  BLOCK  'MIS' 

C    TO  SOLVE  A  STEADY  NON  LINEAR  PRCStEM 

IMPLICIT  REAL*8(A-H,0-Z) 
CHARACTER*4  TBL 

COMMON/ELEM/NULL  (4) ,  ME,  MNULL<2) 
COMMON/ASSE/NSYM,  8KB,  NKE,  NDLE 
COMMON/RESO/NEQ,NFILLR(£) 
"   COMMON/NLIN/EPSDL,  XNORM,  CMESA,  XPfiS,  DPAS,  DPfiSO,  NPfiS,  IPA3,  SITES, 
1  ITER,  IMETH 

COMMON/ES/M,  MR,  MP,  Mi,  M2,  M3,  M4,  HKMY  (5) 
COMMQN/LOC/LCORG,  LDLNC,  LNEQ,  LDIMP,  LPRNS,  LPREE,  LLD,  LLOCE,  LCDRE,  LNE, 

1  LPRNE,  LPREE,  LDLE,  LKE,  lFE,  LXB5,  JffiD,  LK3I,  LFB,  -RES,  LBL3,  LME, 

2  LDUMMY<3) 
COMMON  Vfl(l) 

DIi€NSION  TBL(10),IN(2),XIN<3> 
C+++    THIS  IS  COMMENTED  OUT  BECAUSE  OF  AN  MS  rGR~RAN  COMPILER 
C+++    BUB  WHICH  WILl  NOT  INITIALIZE  *LARSE  ARRAYS.  THIS  ARRAY 
C+++    IS  NOW  INITIALIZED  BY  A  CALL  T0  A  DUMMY  SUBROUTINE 
C+++    INITBL  WHICH  EXISTS  SOLELY  TO  INITIALIZE  THIS  ARRAY 
C 

C    DATA  TBL/'KGS  ','K6D  ','KGI  ','FS  ','KE  ','FE  ','RES  ','DLE  ', 
C   *  'DLG  ','ME  '/ 
C 
C      HERE  IS  THE  CALL  TO  SET  AROUND  THE  COMPI_ER  BUG 

CALL  INITBL  (TBL, 'NLIN') 
C 

C+++    ALL  OF  THIS  IS  TO  SET  AROUND  THE  MICROSOFT 
C+++    COMPILER  BUG 
C 
C 

IF(Ml.EQ.O)  M1=MR 

IF(M2.EQ.O)  M2=ME 

WRITE (MP, 2000)  M 
2000  FORMATf//'  NON  LINEAR  SOLUTION  (M=',  12,' )'/lX, 23 ('=')) 
C TO  ALLOCATE  SPACE 

IF (LKGS. EQ. 1 )  CALL  ESPACE (NKB,  1 , TBL ( 1 ) , LKSS) 

IF (LKBD. EQ. 1 )  CALL  ESPACE (NEC, 1 , TBL (2) , LKGB) 

IF(NSYM.EQ.l.AND.LKGI.EQ.l)  CALL  ESPACE(NK3, 1,T3L(3),LKGI) 

IF(LF6.EQ.l)  CALL  ESPACE  (NEQ,1,TBL<4),LFB) 

IF(LKE.EQ.l)  CALL  ESPACE  (NKE,  1,  TBL  (5),  LKE) 

IF(LFE.EQ.l)  CALL  ESPACE (NDLE, 1,"3L(S), LFE) 

IF  (LRES.  EQ.  1)  CALL  ESPACE (NEQ,  i,TBL(7) ,  LRES) 

IF(LDLE.EQ.  1)  CALL  ESPACEtNDLE,  i,TBL(8) ,  LDLE) 

IF(LDLG.EQ.l)  CALL  ESPACE  (NEQ,I,  TBL  (9),  LDLB) 

IF (LME. EQ. 1 )  CALL  ESPACE (NKE, i , TBL ( 10) , LME) 
C TO  EXECUTE  THE  BLOCK 

CALL  EXNLIN < VA (LCORG) , VA (LDLNC) ,  W(LBIMP) ,  V? C.NE3) ,  W(LLD) , 
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1  Vfi(LL0CE),VP(LCCRE),W(LD^!5!,yP!L^EE»,Vft'.^;,VP'L-E:.VPiL«E), 

2  Vfl<LFE) ,  Vfl (LDLE) , Vfl (LKBS) , Vfl(LK8D) , Vfl(lKGI) ,  W (LF3) ,  W (LRES) , 

3  Vfl<LDLG)) 
RETURN 

END 
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$LARGE 
*NOFLOATCALLS 

SUBROUTINE  EXNLIN  ( VCQRG,  KDLNC,  VDIMP,  KNEQ,  KLD,  KLOCE,  VCORE,  VPRNE, 
1  VPREE,  KNE,  VKE,  VNE,  VFE,  VDLE,  VK6S,  VXGD,  VKGI,  VFS,  VRES,  VDLG) 


C    TO  EXECUTE  BLOCK  'NLIN' 

C    TO  SOLVE  A  STEADY  NOW  LINEAR  PROBLEM 

IMPLICIT  REAL*8(A-H,0-Z) 
COMMON/RESQ/NEQ, NFILLR (2) 
COMMON/COND/NCLT, NCLZ,  NCLNZ 
COMMON/ASSE/NSYM, MFILLR(3) 

COMMQN/NLIN/EPSDL,  XNORM,  OMEGA,  XPAS,  DPAS,  DPASO,  MPAS,  IPAS,  NITER, 
1  ITER,  IMETH 

COMMON/ES/M,  MR,  MP,  «!,!■£,  M3,  M4,  MDU«MY<6) 
DIMENSION  VCORG(*) , KDLNC (*) , VDIMP (*) , KNEQ <*) , KLD (») , KLDCE !*) , 

1  VCORE(*),VPRNE(*),VPREE{*),KNE(*),VKE(*),VME!*),VFE(*),VDLE(*), 

2  VKGS(*),WGD<*),VKGI<*),VFG(*).VRES(*).VDLS<*} 
DATA  ZERO/O. DO/ 


DPA50=ZER0 

XPAS=ZERO 

IPAS=0 

—  READY  INITIAL  D.O.F.  ON  FILE  M3 
IF(M3.EQ.O)  SO  TO  10 

REWIND  M3 

READ(M3)  (VDLG (I),  1=1, NEB) 

—  READ  A  CARD  DEFINING  A  SET  OF  IDENTICAL  STEPS 


10   READ(M1,1000)  DPAS,  11,12,  I3,X1,X2 
1000  FORMAT (F10.0, 315, 2F10.0) 

IF  (DPAS.  EQ.  ZERO)  GO  TO  140 

IF(Il.GT.O)  NPAS=I1 

IF  (12.  ST.  0)  NITER=I2 

IF (13. ST. 0)  IMETK=I3 

IF (XI. GT. ZERO)  £PSDL=X1 

IF (X2. ST. ZERO)  CMEGA=X2 
C 

C LOOP  OVER  ALL  STEPS 

C 

DO  130  IP=1,NPAS 

IPAS=IPAS+1 

XPAS=XPAS+DPAS 

WRITE  (MP,  2000)  IPAS,  DPAS,  XPAS,  NITER,  IMETH,  EPSDL,  OMEGA 
2000  F0RMAT(/1X,13('-'), 'STEP  NUMBER  (IPAS) :',I5// 

1  14X, ' INCREMENT  (DPAS)=',E12.5/ 
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2  14X,' TOTAL  LEVEL  (XPAS)=»,Ei2.5/ 

3  14X, 'NUMBER  OF  ItERA~:j!\S  INFER}*', 112/ 

4  14Xf'!CTH0D  MJKBER  (I«ETHJ;,,!i2/ 

5  14X,' TOLERANCE  (EPSDD=',£12.5/ 

6  14X, 'OVER  RELAXATION  FACTOR   (Q!€SA)=',Ei2.5/) 
C 

C LOOP  OVER  EQUILIBRIUM  ITERATION'S 

C 

DO  110  ITER=1, NITER 
C CHOOSE  THE  METHOD 

IFUMETH.GT.3)  60  TO  20 
C NEWTON  TYPE  METHODS 

CALL  NEWTON (VCORG, KDLNC, VDIMP, KNEQ,  KLD,  KLOCE, VCORE, VPRNE, V^REE, 
1  KNE,  VKE,  VME,  VFE,  VDLE,  VKGS,  VKGD,  VKGI,  VFG,  VREG,  VOLS) 

60  TO  100 

C OTHER  METHODS 

20   CONTINUE 

WRITE (MP, 2010)  IMETH 
2010  FORMAT ('  **  ERROR,  METHOD:',  13,'  UNKNOWN') 

STOP 

C COMPUTE  THE  NORM 

100  CALL  NORME(NEQ,  VRES,  VDLG,  XNORM) 

IF(M.GT.O)  WRITE  (MP,  2020)  ITER,  XNORM 
2020  FORMAT <5X,' ITERATION  (ITER) :', 13,'  NORM  (XN0RM)=',E12.5) 

IF(M.6E.2)  CALL  PRSOL (XDLNC, VCQR3,  VDI«P,KNEQ,VDL6) 

IF(XNORM.LE.EPSDL)  GO  TO  120 
110   CONTINUE 

ITER=NITER 

C END  OF  STEP 

120   DPAS0=DPAS 

WRITE (MP, 2030)  ITER, NITER 
2030  F0RMAT(/10X,IV  PERFORMED  ITERATIONS  OVER',  14/) 

IF(M.LT.2)  CALL  PRSOL (KDLNC,  VCORG,  VDIMP,  KNEQ,  VOLS) 
130  CONTINUE 

60  TO  10 

C SAVE  THE  SOLUTION  CN  FILE  *4 

140   IF(M4.NE.0)  WRITE (M4)  (VDLG(I),  1=1, NES) 

RETURN 

END 
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SUBROUTINE  NEWTON  (VCORS,  KDLNC,  VDI HP,  KNEQ,  1-J,  KlCCE,  VCGRE,  V'PRNE, 
1  VPREE,  KNE,  VKE,  WE,  VFE,  VDLE,  VKGS,  vKBD.  VK3 1 ,  VF3,  VRES,  VDLS) 


C  ALGORITHM  FOR  NEWTON-RflPHSON  TYPE  METHODS 

C  IMETH.EQ.1  COMPUTE  K  AT  EACH  ITERATION 

C  IMETH.  EQ.  2  K  IS  CONSTANT 

C  IMETH.  EQ.  3  RECOMPUTE  K  AT  THE  BEGINNING  0C  EACH  STEP 


IMPLICIT  REAL*8(A-H,0-Z) 
COMMON/ ASSE/NSYM, NKS, MFILLR (2) 
COMMON/RESO/NEQ,  NFILLR(2) 

COMMON/NLIN/EPSDL,  XNORM,  OMEGA,  XPAS,  D?hS,  DPASO,  NPfiS,  I?A3,  NITER, 
1  ITER,  IMETH 

COMMON/ES/M, MR, MP, MDUMMY (10) 
DIMENSION  VCORS(*),KDLnC(*),VDIMP(*),KNE3(*),Xl.D(*),KL0CE(*), 

1  VCORE  (*>,VPRNE(*),  VPREE  (*),  KNE  (*),  VKE  (#)fV*E(*5,  VFE  (*),  VDLE',*), 

2  VKG5(*),VK6D(*),VKSI(*),VFG(*),VRES(*j,VDL3;*) 
DATA  ZERO/0.  DO/,  UN/1.  DO/ 


C 

C DECIDE  IF  GLOBAL  MATRIX  IS  TO  REASSEMBLED 

IKT=0 

IF  (IMETH.EQ.1)  GO  TO  10 

IFdPAS.EQ.  LAND.  ITER. EQ.l)  SO  TO  10 

IF  (IMETH.  EC.  3.  AND.  ITER.  EQ.l)  GO  TO  10 

SO  TO  20 
10   IKT=i 

C INITIALIZE  GLOBAL  MATRIX  TO  ZERO  IF  IT  IS  TO  BE  ASSEMBLED 

20   IF(IKT.EQ.0)GO  TQ  30 

CALL  INIT( ZERO,  NKS,  VKGS) 

CALL  INIT(ZERO,NEQ,VKGD) 

IF(NSYM.EQ.l)  CALL  INIT(ZERO,NKG,VXGI) 

C STORE  LOADS  IN  THE  RESIDUAL  VECTOR 

30   CALL  MAJ ( XPAS,  ZERO,  NEQ,  VPS,  VRES) 

C ASSEMBLE  RESIDUAL  VECTOR,  AND  EVENTUALLY  THE  GLOBAL  MATRIX 

CALL  ASNEWTdKT,  KLD,  VDIMP,  KLDCE,  VCORE,  VPRNE,  VPREE,  ME,  VKE,  WE, 
1  VKGS,  VKGD,VKGI,  VDLG,  VDLE,  VRES) 
C SOLVE 

CALL  SOL  (VKGS,  VKSD,VKGI,  VRES,  KLD,  NEQ,  MP,  IKT,  l,i\SY*!,ENERB) 

IF(IKT.EQ.l.AND.M.GT.l)  CALL  PRPVTS(VKGD) 
C UPDATE  THE  SOLUTION  XE'wT  40 

CALL  MAJ  (OMEGA,  UN,  NEQ,  VRES,  VDLG) 

RETURN 

END 
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SUBROUTINE  flSNEWT (IKT, KID,  VDIMP,  <LDCE,  VCORE,  VPRNE,  VPREE, 
1    KNE,  VKE,  VFE,  VKGS,  VKGD,  VKGI,  VFG.  VDLE,  VRES) 

C         TO  ASSEMBLE  THE  RESIDUALS  AND  THE  BUJiflt  MfiTRIX  (IF  IKT.EB.i3 

C         WHILE  LOOPING  OVER  THE  ELEMENTS  ASNE 

C  (FOR  THE  NEWTON-RAPHSON  METHOD) 

IMPLICIT  REAL*8(A-H,0-Z) 

CDWQN/ELESVICLT,  NNEL,  NTPE,  MORE,  ME,  NIDENT,  MM. 

COMMON/ASSE/NSYM,MFILLR(3) 
COMMON/RES0/NEQ,NFILLR(2) 

C0MM0N/R6DT/IEL,  ITPE,  ITPEi,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDES,  IPS 
1  ,ICOD,NULL(3) 

COMMON/ES/M,  MR,  MP,  Ml ,  MS,  MDUMMY  (8) 
DIMENSION  KLD(*),VDIMP(*),KL0CE(#!,VC0RE(#),VPRNE(#),VPREE;*:, 

1  KNE(*),VKE(*),VFE(*),VKGS(#),VX3D(*),VKGI(*i,v,F3;*),^DLE(*), 

2  VRES(*) 

C REWIND  ELEMENT  FILE  M2  fiSNE 

REWIND  M2 
C LOOP  OVER  THE  ELEMENTS 

DO  40  IE=1,NELT 
C READ  AN  ELEMENT 

CALL  RDELEM (M2,  KLOCE,  VCORE,  VPRNE,  VPREE,  KNE) 
C EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

IF (ITPE. EQ. ITPEI)  GO  TO  10 

IC0D=2 

CALL  ELEMLB (VCORE, VPRNE, VPREE,  VDLE, VKE, VFE) 

C FIND  THE  D.O.F.  OF  THE  ELEMENT  FROM  VFG 

10   CALL  DLELM (KLOCE, VFG, VDIMP, VDLE) 

C CALCULATE  ELEMENT  RESIDUALS  AND  CHANS  THEIR  SIGN 

IC0D=6 

CALL  ELEMLB(VCORE, VDRNE, VPREE, VDLE, VKE, VFE) 

DO  20  1=1, IDLE 
20  VFE(I)=-VFE(I) 
C EVALUATE  GLOBAL  MATRIX 

IF(IKT.EQ.O)  GO  TO  30 

IC0D=4 

CALL  ELEMLB(VC0RE, VPRNE, VPREE, VDLE, VKE, WE) 

C ASSEMBLE  THE  RESIDUALS  AND  THE  GLOBAL  MATRIX 

30   CALL  ASSEL (IKT,  1,  IDLE, NSYM, KLOCE, KLD,  VKE,  V?E,  VKGS,  VK6D,  VKGI,  VRES) 
40   ITPE1=ITPE 

RETURN 

END 
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SUBROUTINE  INIT(X,N,V> 

C    INITIALIZE  VECTOR  V  TO  VftLUE  X 

IMPLICIT  REfiL*8(fi-H,0-Z) 
DIMENSION  V(*> 

DO  10  I=1,N 
10   V(I)=X 
RETURN 
END 


SUBROUTINE  HflJ(Xi,X2,N,Vl,V2) 

C    EXECUTE  THE  VECTOR  OPERATION:  V2=X1*V1  +  X£*V2 
C     X1,X2:SCALARS   Vi,V2:VECT0RS 

IMPLICIT  REAL*8(A-H,0-Z) 
DIMENSION  VK*),V2!*) 

DO  10  I=1,N 
10   V2(I)=X1*V1U)+X2*V2(I) 
RETURN 
END 


SUBROUTINE  NORME (N, VDEL, V,  XNORM) 
C    COMPUTE  THE  LENGTHS  RATIO  OF  VECTORS  VDEu  AND  V 

IMPLICIT  REAL«8(A-H,0-Z) 

DIMENSION  VDEL(*),V(*) 

DATA  ZERO/0.  DO/,  UN/1.  DO/,  FAC/1.  D-3/ 

SQRT(X)=DSQRT(Xi 
C 

C1=ZER0 

C2=ZER0 

DO  10  1=1, N 

C1=C1+VDEL(I)*VDEL(I) 
10   C2=C2+V(I)*V(I) 

C=C1*FAC 

IF(C2.LE.C)  C2=UN 

XN0RM=SQRT(C1/C2) 

RETURN 

END 
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SUBROUTINE  BLTE*P 

C    TO  CALL  BLOCK  'TEMP' 

C  '  TO  SOLVE  AN  UNSTEADY  PRQ3LEM  [LINEAR  OR  NOT) 

0=================================== 


IMPLICIT  REAL*8(A-rl,C-Z) 

CHARACTER**  TBL 

COMMON/ELEM/NULL  (4) ,  ME,  MNULL  (2) 

COMMON/ASSE/NSYM,  NXG,  NKE,  NDLE 

COMMON/RESO/NEG,  NFILLR  (2) 

C0MM0N/NLIN/EP3DL,  XNQSM,  OMEGA,  XPAS,  DPAS,  DPASO,  NPftS,  IPAS,  NITER, 
1  ITER,  IMETH 

COMMON/ES/M,  MR,  MP,  Hi,  82,  «3,  *4,  MDUBMY(6) 

COMMON/LOC/LCORG,  LDLNC,  LNE3,  L2I*P,  LPRNG,  LPRE3,  LLD,  LLOCE,  LCGRE,  LNE, 
1  LPRNE,  LPREE,  LDLE,  LKE,  LFE,  LKGS,  LKGD,  LXSI,  LFB,  LRES,  LDLB,  LME, 
1  LDLEO,LDLGO,LFGO 

COMMON  VA(1) 

DIMENSION  TBL(13),IN(2),XIN(3) 
C+++    THIS  IS  COMMENTED  OUT  BECAUSE  OF  AN  MS  FORTRAN  COMPILER 
C+++    BUG  WHICH  WILL  NOT  INITIALIZE  SLARGE  ARRAYS.  THIS  ASSAY 
C+++    IS  NOW  INITIALIZED  BY  A  CALL  TO  A  DUMMY  SUBROUTINE 
C+++    INITBL  WHICH  EXISTS  SOLELY  TO  INITIALIZE  THIS  ARRAY 
C 

C    DATA  TBL/'KGS  ','KSD  ','KGI  ','FG  ','KE  ','FE 
C   *  'DLE  ','DLG  ','ME  ' , ' DLEO' , ' DLGO' , ' FGO  '/ 
C 
C      HERE  IS  THE  CALL  TO  GET  AROUND  THE  COMPILER  BUS 

CALL  INITBL <TBL,' TEMP') 
C 

C++*    ALL  OF  THIS  IS  TO  SET  AROUND  THE  MICROSOFT 
C+++    COMPILER  BUG 
C 


IF(Ml.EQ.O)  M1=MR 
IF(M2.ED.O)  M2=ME 
WRITE (MP, 2000)  M 

2000  FORMAT!//'  UNSTEADY  SOLUTION  (M=',I2,' )' /1X,23('=' )) 

C TO  ALLOCATE  SPACE 

IF(LKGS.EQ.l)  CALL  ESPACE  (NKS, 1, TBL(l), LKGS) 
IF (LKGD. EQ. 1 )  CALL  ESPACE  ( NEQ,  1,TBL  (2),  LKGD) 
IF(NSYM.EQ.l.AND.LKGLEQ.l)  CALL  ESPACE(NXS,  1,TBL(3),LKGI) 
IF(LFG.EQ.l)  CALL  ESPACE  (NEQ, i,TBL(4),LF6) 
IF(LKE.EQ.l)  CALL  ESPACE ( NKE,  1,TBL (5), lKE) 
IF(LFE.EQ.l)  CALL  ESPACE (NDLE, i,TBL!6)..FE) 
IF  (LRES.  ED.  1)  CALL  ESPACE  (NEQ,  !,TBL  (7),  LRES) 
IF(LDLE.EQ.l)  CALL  ESPACE  (NDLE.  i,TBL  (8),  LDLE) 
IF(LDLS.ED.l)  CALL  ESPACE  (NEQ,  i,TBi_  (9),  LDLS) 
IF(LME.EQ.l)  CALL  ESPACE (NKE, 1,TBL( 10), LKE) 
IF (LDLEO. EQ. 1 )  CALL  ESPACE (NDLE, 1 , TB_ ( 1 1 ) , LDLSO) 
IF(LDLGO.EQ.l)  CALL  ESPACE (NEQ, 1,TBL( 12), LDLSO) 
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IF(LFGO.EQ.l)  CALL  SSPACEcVEQ,  l,TBL(13),.r30i 

C TO  EXECUTE  THE  BLOCK 

CALL  EXTEMP(VAiLCORG) , VA(LDLNC) , VAttJHXP) ,  VA(LNEQ) , Vfl(LLD) , 


(\  rf) 


1     VA(LLQCE) , VA(LCORE) , VA(LPRNE) , VA(LPREE) , VA(LNS) , Vfi ELKE) ,  V2(L 
£    VA(LFE) , Vfl (LDLE) , Vfl (LKGS) , VA (LKGD) , Vfi(LKBI) , Vfl (LFG) , Vfl f  LRES) , 
3    VA(LDL6),VA(LDLE0),VA(LDLG0),Vfi(LFS0)) 

RETURN 

END 


SUBROUTINE  EXTEMP  ( VCORG,  KDLNC,  VDIMP,  KNEQ,  KLD,  KLGCE,  VCGRE,  VPRNS, 

1  VPREE,  KNE,  VKE,  VME,  VFE,  VDLE,  VK3S,  VKGD,  VKGI,  VFG,  VRES,  VOLS, 

2  VDLEO,VDLGO,VFBO) 


! 


C    TO  EXECUTE  BLOCK  'TEMP' 

C    TO  SOLVE  AN  UNSTEADY  PROBLEM  (LINEAR  GR  NOT) 

C= 


IMPLICIT  REAL*8(A-H,0-Z) 
COMMGN/RESO/NEQ,  NFILLR  (2) 
COWON/CGND/NCLT,  NCLZ,  NCLNZ 
COMMON/ASSE/NSYM,  HFILLRG) 

COMMON/NLIN/EPSDL,  XNQRM,  OMEGA,  XPAS,  DPAS,  DPASO,  NPflS,  I?AS,  NITER, 
1  ITER,  IMETH 

COMMON/ES/M,  MR,  MP,  Mi,  M2,  M3,  MA,  MDUMMY  (6) 
DIMENSION  VCORG(*),KDLNC(*),VDIMP(*),XNE{I'(*),KLD!*),KLOCE(*), 

1  VCORE(*),VPRNE(*),VPREE(*),K.NE{*),vKE{*),VMEi*),VFE(*),VDLE(*), 

2  VKGS(*),VKGD(*),VKGI(*),VFG(*),VRES(#),VDLS;*},VDLEO<*), 

3  VDLGO(*),VFGO(*) 

DATA  ZERO/O. DO/, UN/1. DO/ 


DPASO=ZERO 
XPAS=ZERO 
IPAS=0 
—  READ  INITIAL  D.O.F.  ON  FILE  M3 


IF(M3.EQ.O)  GO  TO  5 

REWIND  M3 

READ(M3)  (VDLG(I),I=1,NEQ) 

CALL  MAJ(UN,ZERO,NEQ,VDLG,VDLGO) 

C SAVE  THE  REFERENCE  LOAD  CONDITIONS 

5    CALL  MAJ (UN, ZERO, NEQ, VFG, VF30) 

C READ  A  CARD  DEFINING  A  SET  OF  IDENTICAL  STEPS 

10       READ(M1,1000)  DPAS, II,  12, 13, XI, Id 
1000    FORMAT (F10.0, 315, 2F10.0) 

IF  (DPAS.  ED.  ZERO)  GO  TO  140 

IF(Il.GT.O)  NPAS=I1 

IF (12. ST. 0)  NITER=12 

IF(I3.GT.O)  I«ETH=I3 

IF(Xl.GT.ZERO)  EPSDL=X1 

IF(X2.NE.ZER0)  0MEGA=X2 
C 
C LOOP  OVER  THE  STEPS 
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DO  130  IP=1,NPAS 
CALL  INIT(ZERO,NEG,VFG> 
IPAS=IPAS+1 
XPAS=XPAS+DPAS 

WRITEtMP, 2000)  IPflS,  DPflS,  XPftS,  MITER,  IMETH,  EPSDL,  QME 
2000  F0RMAT(/1X,13('-'),' STEP  NUMBER  (IPflS) :', III  I 


1 

14X,' INCREMENT 

(DPAS)=> 

£12.5/ 

2 

14X,'T0TPL  LEVEL 

(XPflS)=', 

E12.5/ 

3 

14X,' NUMBER  OF  ITERATIONS 

(NITER)=' 

,112/ 

4 

UX,' METHOD  NUMBER 

(IMETH)!' 

112/ 

5 

14X,' TOLERANCE 

<EPSDL)=' 

£12.5/ 

c 

p 

6 

14X, 'COEFFICIENT  ALPHA 

(QMESfi)*', 

E12.5/) 

1  nflO    dun?    rmil:    TUOTIIM     TTCDftTTHMC 

c 

DO 

LLHJr    UVtn 

110  ITER=1, 

NITER 

p 

runner  rur  wcTunn 

L 

IF(IMETH.GT.3) 

60  TO  20 

c— 

EULER  TYPE  METHODS 

CALL  EULER (VCORG, KDLNC, VDIMP,  KNEQ,  KLD,  KLOCE,  VCORE,  VPRNE,  VPREE, 

1  KNE,  VKE,  VME,  VFE,  VDLE,  VKGS,  VKGD,  VKGI,  VFG,  VRES,  VDLG, 

2  VDLE0,VDLGO,VFGO) 
GO  TO  100 

C OTHER  METHODS 

20   CONTINUE 

WRITE(MP,2010>  IMETH 
2010  FORMAT  ('  **  ERROR,  METHOD:', 13,'  UNKNOWN') 

STOP 

C COMPUTE  THE  NORM 

100   CALL  NORKE(NEQ, VRES, VDLG, XNORM) 

IF(M.GT.O)  WRITE  (MP,  2020)  ITER,  XNOR.M 
2020  FORMAT <5X,' ITERATION  (ITER) :', 13,'  NORM  (XNORM)  =',£12. 5) 

IF(M.GE.2)  CALL  PRSOL (KDLNC, VCORG, VDIMP, KNEQ,  VDLG) 

IF ( XNORM. LE.EPSDL)  GO  TO  120 
110   CONTINUE 

C END  OF  STEP 

120   DPASO=DPAS 

CALL  MAJ  (UN,  ZERO,  NEQ,  VDLG,  VDL60) 

CALL  PRSOL (KDLNC, VCORG, VDIMP, KNEQ,  VDLS) 
130   CONTINUE 

GO  TO  10 

C SAVE  THE  SOLUTION  ON  FILE  H4 

140   IF(M4.NE.O)  WRITE (M4)  (VDLG (I),  1=1, NEQ) 

RETURN 

END 
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SUBROUTINE  EULSRfVCGRG, KDLNC, VDIMP, XNE5, KU5, KlGCE, VCORE, W^, 

1  VPREE,  KNE,  VKE,  VME,  VFE,  VDlE,  VKGS,  VKGD,  VKGI.  VFS,  VRES,  VDLG, 

2  VDLE0,VDLG0,VF60) 


C  ALGORITHM  FOR  EULER  TYPE  METHODS  IMPLICIT,  EXPLICIT  GR  BOTH 

C  ACCORDING  TO  OMEGA)  FOR  LINEAR  OR  NQN  LINEAR  PROBLEMS. 

C  THE  NON  LINEAR  PROBLEM  IS  SOLVED  BY  A  NEHTON-fflPHSON 

C  METHOD 

C     IMETH. EQ. 1  STANDARD  NEWTON- R A PHSON 

C     IMETH. EQ. 2  K  IS  CONSTANT 

C     IMETH. EQ. 3  K  IS  RECOMPUTED  AT  THE  BEGINNING  OF  EACH  STEP 


IMPLICIT  REAL*8(A-K,0-Z) 
COMMON/ASSE/NSYM, NKG, MFILLR (2) 
C0KM0N/RES0/NEQ,NFILLR(2) 

COMMON/NLIN/EPSDL,  XNORM,  OMEGA,  X?AS,  DPAS,  DPASO,  NPAS,  I  PAS,  NITER, 
1  ITER,  IMETH 

COMMON/ES/M,  MR,  MP,  MDUMMY  ( 10) 
DIMENSION  ORG(*),f<DLNC(*),VDIMP<*),KNEQ(*),KLD(*),KLQCE(*>, 

1  VCORE  (*),VPRNE(«),  VPREE  (*),  KNE  (*),  VKE  {*),  VME  (*),VFE(*J, 

2  VDLE(*),VKGS(*),VKSD(*),VKGI(*),VFG(*),VRES(*),VDLS(*), 

3  VDLEO(*),VDLGO(*),VFGO(«) 
DATA  ZERO/0.  DO/,  UN/1.  DO/ 

C DECIDE  IF  GLOBAL  MATRIX  IS  TO  BE  REASSEMBLED 

IKT=0 

IF  (IMETH.  EQ.1)  GO  TO  10 

IF  (DPAS.  NE.  DPASO.  AND.  ITER.  EQ.l)  GO  TO  10 

IF(IMETH.EQ.3.AND.ITER.EQ.l)  GO  TO  10 

GO  TO  20 
10   IKT=i 

C INITIALIZE  GLOBAL  MATRIX  TO  ZERO  IF  NECESSARY 

20   IF(IKT.EQ.O)  GO  TO  30 

CALL  INIT(ZERO,  NKG,  VKGS) 

CALL  INIT(ZERO,NEQ,VKGD) 

IF(NSYM.EQ.l)  CALL  INIT (ZERO, NKG, VKGI) 

C ASSEMBLE  RESIDUALS  AND  GLOBAL  MATRIX  IF  REQUIRED 

30   CALL  MAJ  (UN,  ZERO,  NEQ,  VFGO,  VRES) 

CALL  ASEULR  ( IKT,  VCORG,  KDLNC,  VDIMP,  KNEQ,  KLD,  KLOCE,  VCORE,  VPRNE, 

1  VPREE,  KNE,  VKE,  VME,  VFE,  VDLE,  VKGS,  VKGD,  VKGI,  VFS,  VRES,  VDLG, 

2  VDLEO,VDLGO,VFGO) 
C1=UN 

IF(ITER.ST.l)  C1=C1-CMEGA 

DO  40  1=1, NEQ 
40   VRES(I)=DPAS*(VRES(I)-C1*VFG(D) 
C SOLVE 

CALL  SOL  (VKGS,  VKGD,  VKGI ,  VRES,  KLD,  NEQ,  MP,  IKT,  1 ,  NSYM,  E€RS) 
C UPDATE  THE  SOLUTION 

CALL  MAJ  (UN,  UN,  NEQ,  VRES,  VDLG) 

RETURN 

END 
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SUBROUTINE  flSEULS ( IKT,  VCORS,  KDLHC,  VDIMP,  KNEQ,  KID,  KLOCE,  VCORE, 

1  VPRNE,  VPREE,  KNE,  VKE,  VME,  VFE,  VDLE,  VK3S,  VKGD.  VKSI,  VFG,  VRES, 

2  VDLG,VDLE0,VDLS0,VF30) 

C    TO  ASSEMBLE  THE  RESIDUALS  AND  THE  GLOBAL  MATRIX  (IF  IKT.E5.1) 
C    WHILE  LOOPING  OVER  THE  ELEMENTS  (FOR  EULER  METHOD) 

IMPLICIT  REAL»8(A-H,0-Z) 

COMMON/ELEM/NB.T,  NNEL,  NTPE,  NGRE,  ME,  NIDENT,  NfcLL 

COMMON/ASSE/NSYM,  MFILLR (3) 

COMMON/RESO/NEQ,NFILLR(2) 

COMMON/ RGDT/IEL,  ITPE,  ITPE1,  ISRE,  IDLE,  ICE,  IPRNE,  IPREE,  INI.,  IDES,  IPG 
1  ,ICOD,NULL<3) 

CQMMON/NLIN/EPSDL,  XNO.RM,  OMEGA,  XPAS,  Q?AS,  D^ASO,  NPfiS,  I  PAS,  NITER, 
1  ITER, IMETH 

COMMON/ES/M,  MR,  MP,  Ml,  MS,  MDUMMY  (S) 

DIMENSION  VCORG(*),KDLNC(*),VDIMP(*),KNE3(*),KLD(*),KL0CE(*), 

1  VCORE(*),VPRNE(*),VPREE(*),KNE(*),VKE(*),V;«!E(*),VFE(*),VD^E(*), 

2  VKGS(*),VKGD(*),VKGI(*),VFG(*),VRES<*),VDLG<*),VDLEO<«>, 

3  VDL60(*),VFG0(*) 

DATA  UN/l.DO/ 
c 

CC=DPAS*OMEGA 

IFE=0 

IF(ITER.GT.l)  IFE=1 
C REWIND  ELEMENT  FILE  (ME) 

REWIND  M2 
C LOOP  OVER  THE  ELEMENTS 

DO  30  IE=1,NELT 
C READ  AN  ELEMENT 

CALL  RDELEM(M2, KLOCE, VCORE, VPRNE, VPREE, KNE) 
C EVALUATE  INTERPOLATION  FUNCTIONS  IF  REGUIRED 

IF(ITPE.EQ.ITPEl)  GO  TO  10 

IC0D=2 

CALL  EL£MLB(VCQRE, VPRNE, VPREE, VDLE,  VKE, VFE) 

c find  Element  d.o.f.  frok  vfg 

10   CALL  DLELM  (KLOCE,  VDLG,VDIMP,  VDLE) 
C COMPUTE  THE  RESIDUAL  K.U. 

ICCD=6 

CALL  ELEMLB (VCORE, VPRNE,  VPREE,  VDLE,  ^KE,  VFZ) 
C COMPUTE  MATRIX  M 

IC0D=5 

CALL  ELEMLB (VCORE, VPRNE, VPREE, VDLE, VME, VFE) 
C COMPUTE  MATRIX  K  IF  REQUIRED 

IFUKT.EQ.O)  GO  TO  15 

IC0D=3 

CALL  ELEMLB  (VCORE,  VPRNE,  VPREE,  VDLE,  VKE,  VFE) 

C RESIDUALS  OF  THE  FIRST  ITERATION  IN  EACH  STEP  (LINEAR) 

15   IF(ITER.GT.l)  GO  TO  20 

CALL  ASSEL (0, 1 ,  IDLE,  NSYM,  KLOCE,  KUJ,  VKE,  VFE,  VKGS,  VKGD,  VKGI ,  V-3) 
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GO  TO  60 

c— 

RESIDUALS  AFTER  FIRST  ITERATION 

20 

CALL  DLELM(KLOCE,VDi.GO,VDI*P,VDLEO) 

DO  30  1=1,  IDLE 

VDLE 1 1 )  =  ( VDLEO ( I ) -VDLE ( I ) ) /DPfiS 

30 

VFE(I)=-QMEGA*VFE(I> 

C — 

PRODUCT  M  .  U 

VFEU)=VFE(l)+VME(l)*VDL£(i) 

11=1 

DO  50  J=2,  IDLE 

J1=J-1 

DO  40  1=1,  Jl 

11=11+1 

VFE( I ) =VFE ( I ) +VME (II) *VDLE ( J) 
40   VFE{J)=VFE(J)+VME(II)*VDLEII) 

11=11+1 
50   VFE(J)=VFE(J)+Vi€(II)*VDLE(J) 

C MATRIX   M  +  D3AS.0i*EGA.  K 

60   IF(IKT.EQ.O)  GO  TO  80 

11=0 

DO  70  1=1,  IDLE 

DO  70  J=I,  IDLE 

11=11+1 
70   VKE(II)=VKE(II)*CC+VME(II) 

C ASSEMBLE  THE  RESIDUAL  AND  THE  GLOBAL  MATRIX 

80   CALL  ASSEL  ( IKT,  IFE,  IDLE,  NSYM,  KLCCE,  KLB,  VK£,  VFE,  VKSS,  VKSD,  VKSI , 

1  VRES) 
90   ITPE1=ITPE 

RETURN 

END 
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SUBROUTINE  BLVALP 

C    TO  CflLL  BLOCK  'VALP' 

C    TO  COMPUTE  EIGENVALUES  AND  EIGENVECTORS  BY  THE  SUBSPflCE 

C    ITERATION  TECHNIQUE 

IMPLICIT  REAL»8(A-H,0-Z) 

CHARACTER**  TBL 

COMMON/ELEM/NULL ( 4 ) , ME, MNULL (2) 

COMMGN/ASSE/NSYM,  NKG,  NKE,  NDLE 

COMMON/RESO/NEQ, NFILLR (2) 

COMMON/VALP/NI7ER,  NMDIAG,  EPSLB,  SHIFT,  NSS,  NSWM,  TOLJfiC,  NVAL? 

COMMCN/ES/M,  MR,  MP,  Ml,«8,  MDUMMY  (8) 

COMMON/LOC/LCORG,  LDLMC,  DIED,  LDIHP,  LPRNG,  L?REG,  LLD,  LLOCE,  LCD  RE,  LNE, 
1  LPRNE,  LPREE,  LDLE,  LKE,  LFE,  LKG5, uKGD, LX3I, LFG, LRES, LDLG, LDUMMY (4) 

COMMON/TRVL/X1,  X2,  X3,  II,  12, 13, 14, 15,  RDUMMY<5io) 

COMMON  VA(l) 

DIMENSION  TBL (20) 

DATA  ZERO/0. DO/ 
C+++    THIS  IS  COMMENTED  OUT  BECAUSE  OF  AN  MS  FORTRAN  COMPILES 
C+++    BUG  WHICH  WILL  NOT  INITIALIZE  $LARGE  ARRAYS.  MS  ARRAY 
C+++    IS  NOW  INITIALIZED  BY  A  CALL  TO  A  DUMMY  SUBROUTINE 
C+++    INITBL  WHICH  EXISTS  SOLELY  TO  INITIALIZE  THIS  ARRAY 
C 

C  DATA  TBL/'KGS  ','KGD  ','MSS  ','MGD  ','FG  ','KE  ','FE  ','BLE', 
C  1  'RES','DLG','P  ','LAMB','LAM1',!R  ', 'PHI  ','KSS  ' ,'MSS  ', 
C   1  'VI  ','VX  ','V2  '/ 

c 

C      HERE  IS  THE  CALL  TO  GET  AROUND  THE  COMPILER  BUG 

CALL  INITBL(TBL,'VALP') 
C 

C+++    ALL  OF  THIS  IS  TO  GET  AROUND  THE  MICROSOFT 
C+++    COMPILER  BUG 
C 
C 

IF(Ml.EQ.O)  «1=MR 

IF(M2.EB.O)  M2=ME 

READ(M1, 1000)  II,  12, XI, X2, 13, 14, 15, X3 
1000    FORMAT  (215, 2F10. 0, 315, 1F10. 0) 

IF(Il.NE.O)  NVALP=I1 

IF(I2.NE.0>  NITER=I2 

NSS=I3 

IF(I4.NE.O)  NMDIAG=I4 

IF(I5.NE.O)  NSWM=I5 

IF (XI. NE. ZERO)  EPSLB=Xi 

IF(X2.NE.ZER0)  SHIFT=X£ 

IF(X3.NE.ZERG)  T0LJAC=X3 

IF(NSS.NE.O)  GO  TO  10 

NSS=MIN0(NVALP+8, 2#WALP) 

NSS=MINO(NSS,NEQ) 
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10   CONTINUE 

WRITEfMP, £000)  N, NVALP, KITES, N*DIA3, i 


BuB,  sh: 


2000  FORMAT (//' 


[RATION  (?!=',  12,')'/' 


1  15X,' NUMBER  Of  DESIRED  EIGENVALUES 

2  15X,'MAX.  NUMBER  OF  ITERATIONS  PERMITTED 

3  15X,' INDEX  FOR  DIAGONAL  MATRIX 

4  15X,' CONVERGENCE  TOLERANCE  ON  EIGENVALUES 

5  15X, 'SHIFT 

6  15X,'SUBSPACE  DIMENSION 

7  15X,'MAX.  NUMBER  OF  ITERATION  IN  JACOBI 

8  15X,' CONVERGENCE  TOLERANCE  IN  JACOBI 
IF(NVALP.LE.NED.AND.NSS.LE.NEQ)  SO  TO  20 


F  i ,  \SS,  NSWM, 

roLJflC 

,26('=')/ 

!NvALP)=' 

112/ 

(NITER)  =' 

112/ 

(NKDM6)*1 

112/ 

!EPSLB)=' 

E12.5/ 

(SHIFT)  =' 

,E12»5/ 

(NSS)=' 

7  '  0  f 

(NSWM)=' 

112/ 

(TOLJAC)=' 

1E12.5/) 

WRITE  (MP,  2010) 


2010 


NVALP  OR  NSS  GREATER  THAN  NE3' , /, 


FORMAT  (//'■ 
1  ' — STOP  EXECUTION — ') 

GO  TO  30 
20        IF(LKGS.EQ.l)  CALL  ESPACEiNKG,  1,TBL(1),LKGS) 
IF(LKGD.EQ.l)  CALL  ESPACEfNEO,  1,TBL(2),LKGD) 
CALL  ESPACE(NKS,1,TBL(3),LMGS) 
CALL  ESPACE(NEQ,1,TBL(4),UGD) 
IF(LFG.EQ.l)  CALL  ESPACE^Q,11TBL(5),LFG) 
IF(LKE.EQ.l)  CALL  ESPACE(NKE, 1,TBL(6),LKE) 
IF(LFE.EQ.l)  CALL  ESPflCE<NDLE,i,TBL<7),LFE) 
IF(LDLE.EQ.l)  CALL  ESPACEWDLE,  1,T3L(3),LDLZ) 
IF(LRES.EQ.l)  CALL  ESPAC£(NE3, i,TBL(9),LRES) 
IF(LDLG.EQ.l)  CALL  ESPACE(NE2, 1,TBL(10),LDLS) 
CALL  ESPACE(NEQ*NSS,i,TBL(ll),LVEC) 
CALL  ESPACE(NSS,1,TBL(12),LLAKB) 
CALL  ESPACE(NSS,1,TBL(13),LLAM1) 
CALL  ESPflCE  (NSS*  (IMSS+1 )  /2, 1 ,  TBL  ( IB) ,  LKSS) 
CALL  ESPACE(NSS*(NSS+1)/2,1,TBL(17),L><SS) 
CALL  ESPACE(NEQ,1,TBL(18),LV1) 
CALL  ESPACE<NSS*NSS,1,TBL(19),LX> 
CALL  EXVALP(VA(LLD),VA(LDIMP),VA(LL0CE),VA(LCORE),VA(LPRNE), 

1  VA(LPREE),VA<LNE),VA(LFE),VA(.KE),'VA(LXGS),VA(LKGD),VA(Lza}, 

2  VA (LCORG) , VA (LDLNC) , VA (LNEQ) ,  VA (LRES) ,  VA (LDLE) ,  VA (LDLG) . 

3  VA(UGS) ,  VA (LMGD) ,  VA (LVEC) , VA(LLAMB) ,  VA (LLAW1) ,  Vfi ! LKSS) , VA (Li«SS) 

4  ,VA(LV1),VA(LX),NEQ,NSS) 
30   RETURN 

END 
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SUBROUTINE  EXVALP(K'J),  VDI&P,  KLOCE,  VCORE,  VP3NS,  VPREE,  «\E,  .rE,  VKE, 

1  VKGS,  VKGD,  VFG,  VCGRG,  KDLNC,  KNEQ,  VRES,  VDLE,  VDLG,  VMSS,  VMGD, 

2  VEC, VLAMB,  VLflMi, VKSS, VMSS, V1,VX,NEQ,  NS3) 

C  TD  EXECUTE  BLOCK  'VflLP' 

C  TO  COMPUTE  EIGENVflLUES  AND  EIGENVECTORS  BY  BUBSPflCE 

C  ITERATION 

C  (IF  NVALP.EQ.1  INVERSE  ITERATION  METHOD) 

IMPLICIT  REAL*8(A-H,G-Z) 

COMMON/ASSE/NSYW, I4KG, NKE,  NDLE 

COMMON/VALP/NITER,  NMDIAG,  EPSLB,  SHIFT,  NSS1,NSM,  TOLJAC,  NVfiL? 

C0MM0N/E3/M,  MR,  MP,  KDUHMY  (10) 

DIMENSION  KLD(*),VDI)!P<*),XLOCE(*)1VCORE(*)lVPRNE(*),V?'EE(*), 

1  KNE(*),VFE(«),VKE(*),VKGS'.*),VKGD(*),VFG(*),VCCRG(*),KDLNC(*), 

2  KNEQ(*) ,  VRES (*i ,  VDLE (*) ,  VOLS (*) ,  VMGS (*) ,  WSB  (*5 ,  VEC (NEQ,  ft) , 

3  VLAM£(*),VLAMi(*),VKSS!*>,VMSS(*),V:(*>,VX(NSS,*} 
DATA  ZERQ/O. DO/, UN/ 1 . ODO/, GRAND/ 1 .  0032/ 
ABS(X)=DABS(X) 

C 

C PRELIMINARY  COMPUTATIONS 

C 

C ASSEMBLE  KG  AND  MG 

CALL  ASKG  ( KLD,  VD IMP,  KLOCE,  VCORE,  VPRNE,  VPREE,  KNE,  VKE,  VFS,  VKGS,  VKGD, 
i  VKGI,  VFG, VDLE, VRES) 

CALL  ASMG (KLD,  VDIMP,  KLOCE,  VCORE,  VPRNE,  VPREE,  KNE,  VKE,  VFE,  VMS3, 
1  VMGD,  VMSS,  VFG,  VDLE,  VRES) 
C TRIANGULARES  KG 

CALL  SOL  (VKGS,  VKGD,  VKGI,  VFG,  KLD,  NE5,  MP,  1,0, 0,  ENERS) 
C LOAD  VECTOR  EQUAL  TO  DIAGONAL  OF  M 

CMAX=ZERO 

ICONT=0 

DO  10  ID=1,NEQ 

C=GRAND 
C CHECK  FOR  ZERO  DIAGONAL  TERM  IN  VMSD 

IF(VMGD(ID).E5.ZER0)  GO  TO  5 

ICCNT=IC0NT+1 

C=VKGD(ID)/VMGD(ID) 
5    V1(ID)=C 

IF(CGT.CMAX)  CMAX=C 

VEC(ID,1)=VMGD(ID) 

DO  10  JS=2,NSS 
10   VEC(ID,JS)=ZERO 
C CHECK  IF  SUBSPACE  DIMENSION  IS  EQUAL  TO  MASS  D.O.F. 

IF(ICCNT.LT.NSS)  GO  T0  250 

C UNIT  LOAD  VECTORS  CORRESPONDING  "0  MIN,  0- 

C       K(I,I)/M(I,I) 

DO  30  JS=2,NSS 

C=CMAX 
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DO  20  ID=i,NEQ 

IF(VKID).G'.C)  GO  TO  20 

C=V1(ID) 

II=ID 
20   CONTINUE 

Vl(II)=CMfiX 

VEC(II,JS)=UN 
30   VLflNB(JS)=UN 

VLflMB(i)=UN 

IF(NVflLP.EQ.l)  NSS=i 

C INVERSE  ITERATION  IF  WALP=1 

C START  ITERATIONS  LOOP 

C 

ITERM=0 

IT*AX=NITER+1 

do  200  iter=i,  nmn 

C COMPUTE  RITZ  VECTORS 


110=0 

DO  80  JS=1,NSS 
I 10=1 10+ JS 
DO  40  ID=1,NEB 

40   Vl(ID)=VcCUD,JS) 

CALL  SOL (VK8S,  VX6D, VKGI, VI,  KLD,  NEQ,  MP,  0, 1, 0,  EMER3) 
C CALCULATE  THE  PROJECTION  OF  K 

11=110 

DO  60  IS=JS,NSS 

C=ZERO 
■  DO  50  ID=1,N£Q 
50   C=C+VKID>*VEC(ID,IS) 

VKSS<II)=C 
60   II=II+IS 

DO  70  ID=1,N£Q 
70   VEC(ID,J3)=V1(ID) 
80   CONTINUE 
C CALCULATE  THE  PROJECTION  OF  * 

110=0 

DO  120  JS=1,NSS 

I 10=1 10+ JS 

DO  85  ID=i,NEQ 
85   V1(ID)=ZER0 

CALL  SULXU  ( WIGS,  W8D,  V^GS,  KLD,  VEC  (i ,  JS) ,  NEB,  0,  VI ! 

11=110 

DO  100  IS=JS,NSS 

C=ZERO 

DO  90  ID=1,NEQ 
90   C=C+V1(ID)*VEC(ID,IS) 

IFdTERM.GT.O)  GO  TO  120 

VMSS(II)=C 
100   II=II+IS 

DO  110  ID=1,NEG 
110  VEC(ID,JS)=V1(ID) 
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120   CONTINUE 

IF  (NSS.GT.i)  GO  TO  125 

VLAMl(l)=VKSS(i)/VMSS(i) 

GO  TO  165 

C CALCULATE  EIGENVALUES  IN  '?•   SUBSPACE 

125   CALL  JACOBI  ( VKSS,  VMSS,  NSS,  NSW'tf,  TOLJAC, VI,  VLfiMi,  VX ) 
C NEW  LOAD  VECTOR 

DO  160  ID=1,NEQ 

DO  130  JS=1,NSS 
130   V1!JS)=VEC(ID,JS) 

DO  150  JS=1,NSS 

C=ZERO 

DO  140  13=1, NSS 
140  C=C+VHIS)*VX(IS,JS) 
150   VEC(ID,JS)=C 
160   CONTINUE 
165   CONTINUE 
C PRINT  THE  ITERATION  VALUES 

IF(M.LT.l)  60  TO  180 

WRITE  (HP,  2000)  HER 
2000  FORMAT (//'  ITERATION  ',15/) 

DO  170  IS=1,NS3 

WRITE (MP, 2010)  IS,VLAM1(IS) 
2010  FORMATS'  EIGENVALUE  NO.  ',15,'  =\E12.5/7'  EIGENVECTOR:') 
170  CALL  PRS0L(KDLNC,VC0RG,VDIKP,KNE3,VECU,ISJ) 

C CHECK  FOR  CONVERGENCE 

180   IF(ITERM.GT.O)  GO  TO  210 

C=ZERO 

IEX=0 

DO  190  IS=1,NSS 

C1=ABS ( ( VLAM1 ( IS) -VLAMB (IS) ) /VLA*B ( IS) ) 

IF(Cl.GT.C)  C=C1 

IF(C1.LE.EPSLB)  IEX=IEX+l 
190   CONTINUE 

WRITE (MP, 2015)  ITER,C,IEX 
2015   FORMATC  ITERATION  ',14,'  MAX.  ERROR=' ,E9. 1,'  EXACT  EIGENVALUES:' 
1,14) 

IF(IEX.GE.NVALP)  ITERM=1 
C NON  CONVERGENCE 


IF  <  ITER.  LT.  NITER.  OR.  ITERM.  EQ.  1 )  GO  TO  195 

WRITE (MP, 2020)  NITER 
2020  FORMATC  **  NON  CONVERGENCE  AFTER  ', 15, '  ITERATIONS') 

ITERM=1 

C SAVE  THE  EIGENVALUES 

195   DO  200  IS=1,NSS 
200   VLAMB(IS)=VLAMKIS) 
C 

C RESULT 

C 

C ARRANGE  EIGENVALUES  IN  ASCENDING  ORDER 

210   IS1=NSS-1 


240 


IF  (IS1.EQ.0)  SO  T0  225 
DO  230  IS=l,ISi 

n=is+i 

C=VLAMB(IS> 

II=IS 

DO  220  JS=I1,NSS 

IF<C.LT.VLflKB(JS)3  GO  TC  220 

C=VLAMB(JS) 

II=JS 
220      CONTINUE 

VLflM8<II)=VU9ffl(IS) 

VLAMB(IS)=C 

DO  230  ID=1,NEQ 

OVEC(ID,IS) 

VEC(ID,IS)=VEC(ID,II) 
230   VEC(ID,II)=C 
C PRINT  RESULT 

WRITE (MP, 2030)  ITER 
2030  FORMAT (/'  ....  CONVERSENCE  IN', 14,'  ITESftTIQNS' /) 
235   CONTINUE 

DO  240  IS=1,NVALP 

WRITE  (MP,  2010)  IS,VLAMB(IS) 
240   CALL  PRSOL(KDLNC, VCCRS, VDIMP,  KNE2,  VEC( 1,  IS) ) 

GO  TO  260 
250   CONTINUE 

WRITE  (MP,  2040) 
2040  FORMAT  ('  *#  NSS  IS  LARGER  THAN  MASS  D.O.F.') 
260   RETURN 

END 
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SUBROUTINE  ASMG (KLD,  VDIMP,  KLOCE,  VCGRE,  VPRNE,  VBREE,  XNE,  VKE,  VFS, 
1  VKGS,  VKGD,  VKBI,  VF3,  VDLE,  VRES) 


C    TO  ASSEMBLE  THE  GLOBAL  MASS  MATRIX  (ELEMENT  FUNCTION  5) 


IMPLICIT  REAL*6(A-H,0-Z) 

COMMQN/ELEM/NELT,  NNEL,  MTPE,  NSRE,  MS,  NIDENT,  8NULL 
COMMGN/ASSE/NSYM,  MFILLR (3) 
COMMON/RESO/NEG,  NFIUJJ  (2) 

COMMGN/RGDT/IEL,  ITPE,  ITPE1,  I3RE,  IDLE,  ICE,  IPRNE,  IfflEE,  INEL,  IDES,  1=5 
i  ,ICOD,NULL(3) 

COPHON/ES/M,  MR,  MP,  Mi,  MS,  MDUMMY<8) 
DIMENSION  KLD (#), VDIMP (*), KLOCE <*),VCDRE<*>, VPRNE (*), VPREE (*), 

1  KNE(*),VKE(*i,VFE(*),VKGS(*),VK3D(*i,VK3:(*),'v-G(*),VDLE«*), 

2  VRES(*),KEB<i) 

C REWIND  ELEMENT  FILE  («2) 

REWIND  M2 
C LCCP  OVER  THE  ELEMENTS 

DO  30  IE=t,NELT 
C SKIP  COMPUTATIONS  IF  IDENTICAL  ELEMENTS 

IF(NIDENT.EQ.l.fiND.IE.GT.l)  GO  TO  20 
C .READ  AN  ELEMENT 

CALL  RDELEM (M2, KLOCE,  VCCRE, VPRNE,  VPREE, KNE) 
C EVALUATE  INTERPOLATION  FUNCTIONS  IF  REQUIRED 

IFdTPE.EQ.  ITPE1)  GO  TO  10 

IC0D=2 

CALL  £L£MLB(VCORE,  VPRNE,  VPREE,  VDLE,  VKE,  VFE) 
10   IC0D=5 

CALL  ELEMLB  < VCORE,  VPRNE,  VPREE,  VDLE,  VKE,  VFE) 
C PRINT  ELEMENT  MATRIX 

IF(M.LT.2)  GO  TO  20 

IF1NSYM. EQ. 0)  IKE=IDLE* ( IDLE+1 ) /2 

IF(NSYM.EG.l)  IKE=IDLE*IDLE 

WRITE (MP, 2000)  IEL, (VKE(I), 1=1, IKE) 
2000  FORMAT (/'  MATRIX  (ME)  ,  ELEMENT :',  15/ (10X,10£12. 5)) 

C ASSEMBLE 

20        CALL  ASSEL  (1,0,  IDLE,  NSYM,  KLGCE,  KLD,  '<J\{E,  VFE,  VKSS,  VK3D,  VX8I,  VFB) 
30        ITPE1=ITPE 

RETURN 

END 
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SUBROUTINE  JflCDBI  !VX,  VM,  N,  NCYM,  EPS,  VALPO,  VAL3,  VEC~) 


c 

TO  SOLVE  THE 

EIGENPRG8LEM  K-LAMBDA.X  BY  T'HE  GENERALIZED 

c 

JACCBI  METHOD 

c 

INPUT 

c 

VK 

MATRIX  K  (UPPER  TRIANGLE  BY  DESCEND I KG 

r 

COLUMNS) 

C 

VM 

MATRIX  M  (UPPER  TRIANGLE  BY  DESCENDING 

c 

COLUMNS) 

c 

N 

ORDER  OF  MATRICES  K  ft^D  M 

c 

NCYW 

MAXIMUM  NUMBER  DF  SWEEPS  ALlOWED  (15) 

c 

EPS 

CONVERGENCE  TOLERANCE  (i.D-12) 

n 

L 

WORKSPACE 

c 

VALPO 

FORKING  VECTOR  (DIMENSION  N) 

c 

OUTPUT 

c 

VALP 

EIGENVALUES 

c 

C= 

VECT 

EIGENVECTORS 

IMPLICIT  REAL*6(A-H,0-Z) 

CQMMON/ES/M,  MR,  MP,  MDUMMY  ( 10) 

DIMENSION  VK(«),VM!*),VALPO(N),VALP(N},VECT(N,M) 

DATA  EPSDO/1. D-4/,  ZERC/O.  DO/,  UN/1. DO/,  DEUX/2. DO/,  QUATR/4.  DO/ 

SGRT(X)=DSQRTU) 

ABS(X)=DABS(X) 

EPS2=EPS*EPS 

ITR=0 

C VERIFY  IF  DIAGONAL  TERMS  ARE  POSITIVE 

C      AND  INITIALIZE  EIGENVALUES 

11=0 

DO  20  1=1,  N 

II=II+I 

IRVK(II).ST.ZER0.AND.VM(II).3T.ZERQ)  GO  TO  10 

WRITE  (MP,  2000)  I 
2000  FORMAT ('  **  ERROR,  NEGATIVE  DIAGONAL  TERM  IN  JACOBI,  ROW  ', 
1  15) 

STOP 
10   VALP(I)=VK(II)/VM(II) 
20   VALPO(I)=VALP(I) 
C INITIALIZE  EIGENVECTORS 

DO  40  1=1,  N 

DO  30  J=1,N 
30       VECT(I,J)=ZERC 
40       VECT(I,I)=UN 
C FOR  EACH  SWEEP 

DO  250  :C=1,NCYM 
C DYNAMIC  TOLERANCE 

E?SD=EPSD0**IC 
C SWEEP  ROWWISE  OVER  UPPER  TRIANGLE 

IMAX=N-1 
11=0 
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DO  130  1=1, 1.MftX 
10=11+1 

IPi=I+l 

IJ=II+I 

JJ=II 

DO  180  J=IP1,N 

JPi=J+l 

JMW-1 

J0=JJ+1 

JJ=JJ+J 

J3=JJ-1 
C COMPUTE  COUPLING  FACTORS 

FK=<VK(IJ)*VK(IJ))/(VKCI)*W(JJ)) 

F«s(V«(IJ)«V»(IJ))/(VM<II)«VM(JJ)5 

IF(FK.LT.EPSD.flND.F«.LT.EPSD)  BO  TO  1B0 
C COMPUTE  THE  TRflNSFGRMflTICN  CCSF-ICIEN'S 

ITR=ITR+1 

C1=VK(II)*VM(IJ)-VM(II)*VK!LT) 

C2=VK(JJ)*VM(IJ)-V«(JJ)*VK(IJ) 

C3=VK(II)*V«(JJ)-VM(II)»VK(JJ) 

DET=(C3*C3/QUATR)+(Cl*Cc) 

IF(DET.GE.ZERC)  SO  TO  50 

WRITE  (MP,  2005)  I,  J 
?005  FORMAT  ('  **ERRGR,  SINGULAR  JflCOBI  TRANSFORMATION  1=' ,  15, 
1   '  J=',I5) 

STOP 
50   DET=SQRT(DET) 

D1=C3/DEUX+DET 

D2=C3/DEUX-DET 

D=D1 

IF(ABS(D2).8T.A33(D1))D=D2 

IF(D.EQ.ZERQ)  GO  TO  60 

A=C2/D 

B=-C1/D 

GO  TO  65 
60   A=ZERO 

B=-VK(IJ)/VK(JJ) 

C MODIFY  COLUMNS  OF  K  AND  M 

65   IF(I.EQ.i)  30  TO  80 

IK=I0 

Ji=IJ-l 

DO  70  JK=J0,J1 

Ci=VK(IK) 

C2=VK(JK) 

VK(IK)=C1+B*C2 

VK(JK)=C2+A*C1 

C1=VM(IK) 

C2=VM(JK) 

W(IK)=C1+B*C2 

VM(JK)=C2+A*C1 
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70   IK=!K+1 

80   IFd.EG.JM)  GO  '0  100 
IK-II+I 

J2=IJ+1 

IM=I 

DO  90  JK=J2,J3 

Ci=VK(IK) 

C2=VKiJK) 

VK<IK>=C1+B»C£ 

VK(JK)=C2+ft*Cl 

C1=VM(IK) 

C2=V«(JK) 

VM(IK)=C1+B*C2 

VM(JK)=C2+3*CI 

IM=I«+1 
90   IK=IK+IM 
100   IF(J.EQ.N)  SO  T0  120 

IK=!J+J 

JK=JJ+J 

IM=J 

DO  110  JJK=JP1,N 

C1=VKUK) 

C2=VK(JK) 

VK<IK)=C1+B*C£ 

VK(JK)=C2+fl*Ci 

C1=VH(IK) 

C2=VM(JK) 

VM(IK)=C1+B*C2 

VH(JK)=C2+S*Ci 

IW=IM+1 

IK=IK+IM 
110  JK=JK-«-IM 
120   C1=VK(II) 

C2=VK(IJ) 

C3=VK(JJ) 

B2=8*B 

BB=DEUX*B 

fl2=ft*fl 

Aft=D£UX*fl 

VK(II)=C1+BB*C2+B2*C3 

VK(IJ)=ZE30 

VK(JJ)=C3+GP*C£+fl2*Ci 

C1=VM(II) 

C2=VM(IJ) 

C3=VM(JJ) 

VMII)=C1+BB*C2+BE*C3 

VM(IJ)=ZERO 

VM(JJ)=C3+AP*C2+fl2*Cl 
C UPDATE  EIGENVECTORS 

DO  170  IJ1=1,N 

C1=VECT(IJ1,I) 
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c2=vect(ij1,j) 
vectcj:,d=c:+b*C2 

170     VECT<IJl,J)=C2+A*Cl 

iflO      IJ=IJ+J 

C UPDfiTE  EIGENVALUES 

11=0 

DO  190  1=1,  N 

II=II+I 

IF  (VK(II).  ST.  ZERO.  AND.  MUD.  ST.  ZERO)  3C  TO  ISO 

WRITE  (MP,  £000)  I 

STOP 
190   VALP(I)=VK(II)/VM<II) 

IF(M.GT.l)  WRITE  IMP,  2010)  IC,  (VALP(I),  1=1, 'w 
2010  mmiP   EIGENVALUES,  S«E£3  ',I4/(IX,10E12.5)) 
C CHECK  FOR  CONVERGENCE  OF  EIGENVALUES 

DO  200  1=1,  N 

IF(ABS(VALP(I)-VAL?0(I)).GT.  (EPS*VALP0<!)))  50  TC  230 
200   CONTINUE 
C CHECK  FOR  CONVERGENCE  GN  DIAGONAL  TERMS 

JJ=1 

DO  210  J=2,N 

JJ=JJ+J 

JM=J-i 

11=0 

DO  210  1=1, JM1 

11=11+1 

ij=jj-j+: 

fk=vk(ij)*vk(ij)/(vx(ii)*vk(jj)> 

fm=vm ( i j) #vk ( ij) / ( vm ( i i ) *vm ( j j) > 

ifffk.gt.eps2.0r.fk.gt.eps2)  go  to  230 
210  continue 
c normalize  eigenvectors 

JJ=0 

DO  220  J=1,N 

JJ=JJ+J 

C1=SQRT(VM(JJ)> 

DO  220  1=1, N 
220   VECT(I,J;=VECT(I,J)/C1 
C ACHIEVED  CONVERGENCE 

IF(M.ST.O)  WRITE (MP, 2020)  IC,ITR 
2020  FORMAT (15X, 'CONVERGENCE  IN  ',14,'  SWEEPS  AND  ',15,'  TRANSFORATION 
IS  IN  JflCOBI' ) 

RETURN 


C 

230 

—  TRANSFER  VAL?  INTO  VALPO 
DO  240  1=1,  N 

240 

VAL?0(I)=VAL?(I) 

250 

CONTINUE 

C 

—  FAIL  TO  CONVERGE 

WRITE (MP, 2030)  NCYM 

2030 

FORMAT ('  **  ERROR,  CONVERGENCE  FAILURE  IN  JACOBI  IN' 

STOP 

END 

[4,1  SWEEPS' 
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$LARGE:  VKSI1 

$LARGE:  KEXP1 

$LARGE:  WSI2 

*LARGE:  XEXP2 

$LARGE:  VKSI3 

$LARGE:  KEXP3 

*LARGE:  VKSI 

$LAR6E:  KEXP 

$LARGE:  INDIC 

$LAR6E:  G 

$LARGE:  P 

JLflRGE:  TBI 

$LARGE:  W6T 

$LARGE:  3SIT 

$LARGE:  ETfiT 

$LARGE:  IN"NL* 

$LARGE:  MNTV 

*LARGE:  PS 

$LARGE:  ET 

$LARGE:  IPSO 

SUBROUTINE  DU**Y (MICROSOFT, BUG, KILLER) 


C  I  REFER  TO  THE  FG._jwI\3  SUBROUTINES,  WHOSE  NAMES  BEGIN 

C  WITH  "INIT,"  AS  DUWY  SUBROUTINES,  BECAUSE  THEY  ARE 

C  NEEDED  TO  INITIALIZE  THE  ARRAYS  WHICH  A3E  -ASSED  AS 

C  CALLING  PARAMETERS.  THE  ARRAYS  CANNOT  BE  INITIALIZED  WITH 

C  DATA  STATEMENTS  IN  A  DIRECT  FASHION  BECAUSE  THESE  13  3 

C  BUG  IN  THE  MICROSOFT  FORTRAN  COMPILER  V3.2,  WHICH  LIES  NC7 

C  INITIALIZE  REAL  ARRAYS  CORRECTLY  IF  THEY  HAVE  BEEN  IDENT- 

C  IFIED  AS  $LARGE  ARRAYS.  IT  DOES  NOT  SEEM  TO  MATTER  WHETHER 

C  THEY  ARE  DECLARED  LARGE  USING  THE  "GENERIC"  *LARGE  WITHOUT 

C  SPECIFIC  ARGUMENTS,  OR  WHETHER  THEY  HAVE  BEEN  DECLARED 

C  SPECIFICALLY  AS  IN  THE  i€TACOMMANDS  PROCEEDING  THIS  ROUTINE 

C 

C  IF  THE  BELOW  ROUTINES  ARE  DUMMY  ROUTINES;  THIS  ONE  HAS  GOT 

C  TO  BE  CALLED  AN  IDIOT  ROUTINE.  THIS  ROUTINE  EXISTS  BECAUSE 

C  THE  DATA  STATEMENTS  FOR  REAL  ARRAYS  WIlL  NOT  COMPILE  CORRECTLY 

C  IF  THEY  ARE  IN  THE  FIRST  SUBROUTINE  IN  A  COMPILAND.  "HIS 

C  SUBROUTINE  PROVIDES  A  PAD  TO  FOOL  THE  COMPILER.  WITHOUT 

C  THIS  ROUTINE,  THE  ONE  IMMEDIATELY  FOLLOWING  WILL  NOT  COMPILE; 

C  WITH  THIS  ROUTINE  IT  DOES. 

C 

0=================================== 


IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  BUG (20) 

BUG(l)  =  O.DO 

RETURN 

END 
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SUBROUTINE  IM7M  (VKSI1,KEXP1,VKSI2,  KEXP2,  WSI3,  KEXP3) 


C  THIS  SUBROUTINE  EXISTS  SOLELY  TO  BET  AROUND  A  MICROSOFT 

C  COMPILER  BUG.  ITS  PURPOSE  IS  13  INITIALIZE  THE  PRRAYS 

C  PASSED  AS  ARGUMENTS.  THE  DUMMY  ARRAYS  WSIli,  VKSI22, 

C  VKSI33,  KEXPii,  KEXP22,  AND  KEXP33  -AVE  BEEN  GIVEN  THE 

C  ATTRIBUTE  ttKJTLARGE,  AND  WILL  BE  INITIALIZED  PROPERLY 

C  BY  THE  COMPILER.  THE  SMFLARGE  ATTRIBUTE  IS  ASSIGNED 

C  BY  DEFAULT  SINCE  THEIR  DIMENSIONS  DO  NOT  EXCEED  6AK  BYTES 

C  OF  STORAGE. 
C 

C  THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  NI01  WHICH  IS 

C  USED  R3R  ELEMENT  TYPE  1 


IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  VKSI1  <3),XEX?1  (3),VKSI2  (1S),KEXP2  (16),VXSI3  (60), 
1  KEXP3(60) 

DIMENSION  VXSI11(3),KEXP11(3),V'KSI22(1S),KEX?22(16),VKSI33(£0), 
1  KEXP33(60) 
C 

C   CHARACTERISTICS  FOR  1,2  AND  3  DIMENSIONAL  REFERENCE  ELEMENTS 
C 

C         HERE  IS  THE  DUMMY  ARRAY  INITIALIZATION 
C 

DATA  VKSI11/-1.DO,O.DO,1.DO/ 

DATA  KEXPll/0,1,2/ 

DATA  VKSI22/-1 . DO, -1. DO,  +O.DO,-i.DO,  +1.D0,-1.D0,  +1.D0,+0.D0, 
1        +1.D0, +1.D0,  +O.DO,+i.DO,  -l.DO.+l.DO,  -1.  DO, +0.00/ 

DATA  KEXP22/0,0,  1,0,  0,1,  2,0,  1,1,  0,2,  2,1,  1,2/ 

DATA  VKSI33/-1. DO, -1. DO, -1.  DO,  +0.D0,-i.D0,-l.D0, 

1  +1.D0,-1.D0,-1.D0,  +1.  DO, +0.1)0,-1.  DO, 

2  *1.  DO, +1.00,-1.  DO,  +0.  DO, +1.00,-1.  DO, 

3  -l.D0,+l.DO,-l.DO,  -l.D0,+0.D0,-i.D0, 

4  -l.DO,-l.D0,+O.D0,  +l.DO,-i.DO,+O.D0, 

5  +1. DO,  +1.  DO,  +0.  DO,  -l.DO,+l.DO,+O.DO, 

6  -l.D0,-l.D0,+l.D0,  +0. 00,-1.  DO, +1.  DO, 

7  +1.  DO, -I.  DO, +1.  DO,  +1.D0,+0.D0,+1.D0, 

8  +1.D0, +1.D0, +I.DO,  +0.  DO, +1.  DO, +1.00, 

9  -l.DO,+l.DO,+l.D0,  -l.D0,+0.D0,+l.D0/ 
DATA  KEXP33/0, 0,0,  1,0,0,  0,1,0,  0,0,1,  1,1,1, 

1  1,1,0,  0,1,1,  1,0,1,  2,0,0,  0,2,0,  0,0,2, 

2  2,1,0,  2,0,1,  2,1,1,  1,2,0,  0,2,1,  1,2,1, 

3  1,0,2,  0,1,2,  1,1,2/ 
C 

C  INITIALIZE  THE  REAL  PRRAYS 

C 

DO  10  I  =  1,3 
VKSIKI)  =  VKSIU(I) 
KEXPKI)  =  KEXP1KI) 
10       CONTINUE 
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DO  20  I  =  1,  16 
VKSI2U)  =  VKSI22U) 
KEXP2(I>  =  KEXP22U) 
20   CONTINUE 

DO  30  I  =  1,60 
WSI3U)  =  VKSI33G) 
KEXP3(I)  =  KEXP33<I) 
30   CONTINUE 
RETURN 
END 


SUBROUTINE  INITN£<VKSI,KEXP5 


C  THIS  SUBROUTINE  EXISTS  SOLELY  TO  5ET  ARCLND  A  MICROSOFT 

C  COMPILER  BUS.  ITS  PURPOSE  IS  TG  INITIALIZE  THE  ARRAYS 

C  PASSED  AS  ARGUMENTS.  THE  DUMMY  ARRAYS  VKSI  I  AND  KEXPP  "AVE 

C  BEEN  SIVEN  THE  ATTRIBUTE  INGTLARSE,  AND  WILL  BE  INITIALIZED 

C  PROPERLY  BY  THE  COMPILER.  THE  SNOT-ARSE  ATTRIBUTE  IS  ASSIGNED 

C  BY  DEFAULT  SINCE  THEIR  DIMENSIONS  DO  NOT  EXCEED  64K  BYTES 

C  OF  STORAGE. 

C 

C  THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  NI02  WHICH  IS 

C  USED  BY  ELEMENT  TYPE  2 


IMPLICIT  REAL*8(A-H,0-Z) 
C 

& INFORMATION  RELATED  TO  THE  8  NODED  REFERENCE  SQUARE  ELEMEN' 

C       (INEL.EQ.8  NDIM.EQ.2) 

C    DIMENSION  VKSI(NDIM*INEL),KEXP(NDIM*INEL),KDER(NDIM> 

DIMENSION  VKSI  (     16),KEXP  (     16) 

DIMENSION  VKSI I <     16),KEXP3<     16) 
C 

C         INTITIALIZE  THE  DUMMY  ARRAYS 
C 
C      NODAL  COORDINATES  OF  THE  REFERENCE  ELEMENT 

DATA  VKSII/-1.D0, -l.DO,  +0.D0,-1.D0,  +1.D0,-1.D0,  +1.D0, +0. DO, 
1       +1.D0, +1.D0,  +0.D0,+1.D0,  -l.DO, +1. DO,  -l.D0,+0.D0/ 
C      MONOMIAL  EXPONENTS  OF  Tw£  POLYNOMIAL  BASIS,  MAX-DEGREE 

DATA  KEXPP/0,0,  1,0,  0,1,  2,0,  1,1,  0,2,  2,1,  1,2/ 
C 

C        INITIALIZE  THE  REAL  ARRAYS 
C 

DO  10  I  =  1, 16 
KEXP(I)  =  KEXPP(I) 
VKSI  (I)  =  VKSIKI) 
10   CONTINUE 

RETURN 

END 
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SUBROUTINE  MITN3(VKSI,KEXP) 

C  THIS  SUBROUTINE  EXISTS  SOLELY  TO  GET  AROUND  A  MICROSOFT 

C  COMPILER  BUG.  ITS  PURPOSE  IS  TO  INITIALIZE  THE  ARRAYS 

C  PASSED  AS  ARGUMENTS.  THE  DUMMY  ARRAYS  VKSI  I  S.MD  KEXPP  HAVE 

C  BEEN  GIVEN  THE  ATTRIBUTE  WQTLARGE,  AND  wILL  BE  INITIALIZED 

C  PROPERLY  BY  THE  COMPILER.  "HE  SNQTLARSE  ATTRIBU"  IS  ASSIGNED 

C  BY  DEFAULT  SINCE  THEIR  DIMENSIONS  DO  NOT  EXCEED  S4K  BY'ES 

C  OF  STORAGE. 

C 

C  THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  1*103  WHICH  IS 

C  USED  BY  ELEMENT  TYPE  3 

IMPLICIT  REAL*8<A-H,0-Z) 
C 

C INFORMATIONS  CARACTERISTIQUES  DU  TRIANGLE  A  S  NOEUDS 

C        (INEL.EQ.6  NDIM.EQ.2) 

C    DIMENSION  VKSI(NDIM*INEL),i<EX?(NDIM*INEL) 

DIMENSION  VKSI  (     12),KEXP  (     12) 

DIMENSION  VKSI I (     12),KEX?P(     12) 
C 

C      THIS  IS  THE  DUMMY  ARRAY  INITIALIZATION 
C 
C      COORDONNEES  DES  NOEUDS  DE  L' ELEMENT  DE  REFERENCE 

DATA  VKSI  I/O.  DO,  0.  DO,  0. 5D0, 0.  DO,  1.  DO,  0.  DO,  0. 5D0, 0. 5D0, 0.  DO,  i.  DO, 
1       O.DO,0.5DO/ 
C      EXPOSANTS  DES  MONOMES  DE  LA  BASE  POLYNOMIALS, DEGRE  MAX. 

DATA  KEXPP/0,0,  1,0,  0,1,  2,0,  1,1,  0,2/ 
C 

C      INITIALIZE  THE  REAL  ARRAYS 
C 

DO  10  I  =  1,12 
VKSI  (I)  =  VKSII(i) 
KEXP<I)  =  KEXPP(I) 
10   CONTINUE 

RETURN 

END 
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SUBROUTINE  INITSfi  (MST,  PSIT,  ETfiT,  INTNUM,  NINTV! 
0============================================================= 

C  THIS  SUBROUTINE  EXISTS  SOLELY  TO  SET  AROUND  A  MICROSOFT 

C  COMPILER  BUS.  ITS  PURPOSE  IS  T0  INITIALIZE  ThE  ARRAYS 

C  PASSED  AS  ARGUMENTS.  THE  DUMMY  ARRAYS  WSTT,PSIT7, 

C  ETATT,  INTNUU,  AND  NINTVV  HAVE  BEEN  3IVEN  THE 

C  ATTRIBUTE  $NOTLARGE,  AND  WILL  BE  INITIALIZED  PROPERLY 

C  BY  THE  COMPILER.  THE  $NOTLARSE  ATTRIBUTE  IS  ASSIGNED 

C  BY  DEFAULT  SINCE  THEIR  DIMENSIONS  DO  NOT  EXCEED  64K  BYTES 

C  OF  STORAGE. 

C 

C  THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  STF06  WHICH  IS 

C  USED  FOR  ELEMENT  TYPE  fa 


IMPLICIT  REAL*8(A-K,0-Z) 

DIMENSION  WGT  (*) ,  PSIT  (*),ETftT  <*),  INT\UM(*),NIN7V  (*) 

DIMENSION  WGTT(7),PSITT(7),ETATT(7),INTNUU!5),NINTW<5> 
C 

C         HERE  IS  THE  DUMMY  ARRAY  INITIALIZATION 
C 

DATA  PSITT/  0. 333333333333D0, 

*  0. 16666666666700, 0. i66666666667D0, 0. 666666566667D0, 

*  0.5D0        ,0.5D0        ,0.0D0/ 
DATA  ETATT/  0. 333333333333D0, 

*  0. 166666666667D0, 0. 666666666667D0, 0. 16666666666700, 

*  O.ODO        ,0.5D0        ,0.5D0/ 
DATA  WGTT/  l.ODO, 

*  0. 333333333333D0, 0. 333333333333D0, 0. 333333333333D0, 

*  0. 333333333333D0, 0. 333333333333D0, 0. 33333333333300/ 
DATA  INTNUU  /  0,1,4,7,11/ 

DATA  NINTW  /  1,3,3,4,  7/ 
C 

C       INITIALIZE  THE  REAL  ARRAYS 
C 

DO  10  I  =  1,5 
INTNUM<I)  =  INTNUU (I) 
NINTV(I)  =  NINTW(I) 
10   CONTINUE 

DO  20  I  =  1, 7 
WGT(I)  =  WGTT(I) 
PSIT  (I)  =  PSITT(I) 
ETAT(I)  =  ETATT(I) 
20   CONTINUE 
RETURN 
END 
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SUBROUTIiVE  WITRS(PS,£1 


C  THIS  SUBROUTINE  EXISTS  SOlELY  TQ  SET  AROUND  A  MICROSOFT 

C  COMPILES  BUG.  ITS  PURPOSE  IS  TC  INITIALIZE  THE  ARRAYS 

C  PASSED  AS  ARGUMENTS.  THE  DUMMY  ARRAYS  -^3  AND  E"T  -AVE 

C  BEEN  GIVEN  THE  ATTRIBUTE  SNOTLARBE,  AND  WILL  BE  INITIALIZED 

C  PROPERLY  BY  THE  COMPILES.  THE  $NOT^RGE  ST_RIBjTE  IS  ASSI3NEI 

C  BY  DEFAULT  SINCE  THEIR  DIMENSIONS  DO  NOr  EXCEED  64K  BYTES 

C  OF  STORAGE. 

C 

C  THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  STRQS  WHICH  IS 

C  USED  FOR  ELEMENT  TYPE  6 


IMPLICIT  REAL*8  (A-H.O-2) 

DIMENSION  PS  (*),ET  (*) 

DIMENSION  PSS(6),ETT(6) 
C 

C         HERE  IS  THE  DUMMY  ARRAY  INITIALIZATION 
C 

DATA  PSS  /0.,1.,0., 0.5, 0.5,0./ 

DATA  ETT  /0.,0., l.,0., 0.5,0.5/ 
C 

C       INITIALIZE  THE  REAL  ARRAYS 
C 

DO  10  I  =  1,6 
PS(I)  =  PSS(I) 
ET(I)  =  ETT(I) 
10   CONTINUE 

RETURN 

END 
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SUBROUTIN£  INITN7<VKSI,KEX?) 


C  THIS  SUBROUTINE  EXISTS  SCLELY  '0  SET  AROUND  A  MICROSOFT 

C  COMPILER  BUG.  ITS  PURPOSE  IS  TO  INITIALIZE  THE  ARRAYS 

C  PASSED  AS  ARGUMENTS.  'HE  DUMMY  ARRAYS  VKSII  AND  KEXPP  HAVE 

C  BEEN  GIVEN  THE  ATTRIBUTE  SNOTLARSE,  AND  WIl^  BE  INITIALIZED 

C  PROPERLY  BY  THE  COMPILER,  the  JNCTLArlSE  ATTRIBuTE  IS  ASSIGNED 

C  BY  DEFAULT  SINCE  THEIR  DIMENSIONS  DC  NQT  EXCEED  64K  BY~ES 

C  OF  STORAGE. 

C 

C  THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  M07  WHICH  IS 

C  USED  BY  ElEMENT  TYPE  7 

IMPLICIT  REfiL*8(A-H,0-Z) 
C 

C INFORMATIONS  LIEES  A  L' ELEMENT  DE  RE-ERENCE  CARRE  A  20  N0EUD3 

C       (INEL.EQ.20  NDIM.EQ.3) 

C    DIMENSION  VKSI(NDIM»INEL),KEX3(NDIM*INEL),KDER(\DIM) 

DIMENSION  VKSK     60),KEXP(     60) 

DIMENSION  VKSII <     60),KEX0P(     60) 
C 

C      INITIALIZE  THE  DUMMY  ARRAYS 
C 

DATA  VKSII/ 

1  -1.  BO, -I.  DO, -1.  DO,  +0.00,-1.00,-1.  DO,  +1. 00,-1.  DO, -i.  DO, 

2  +1.D0,+0.D0,-1.D0, 

3  +1.D0,+1.D0,-1.D0,  +O.DO,+l.DO,-i.DO,  -1.  DO, +1.00,-1.  DO, 
A  -1.  DO, +0.00,-1.  DO, 

5  -l.D0,-l.D0,+0.D0,  +1.D0,-1.D0,+0.D0,  +i.DO,+l.DO,+O.DO, 

6  -l.DO,l.DO,+O.D0, 

7  -l.DO,-l.DO,+l.DO,  +0.D0,-1.D0,+1.D0,  +l.DO,-i.DO,+l.DO, 

8  +1.D0.+0.  DO, +1.D0, 

9  +1.D0,+1.D0,+1.D0,  +0.D0,+1.D0,+1.D0,  -l.DO,+l.DO,+l.DO, 
A  -l.DO,+O.DO,+l./ 

C      EXPOSANTS  DES  MONOMES  DE  LA  BASE  POLYNOMIALS, DEGRE  NRX. 
DATA  KEXPP/0, 0,0,  1,0,0,  0,1,0,  0,0,1,  2,0,0,  0,2,0,  0,0,2, 

1  1,1,0,  0,1,1,  1,0,1,  2,1,0,  2,0,1,  1,2,0,  0,2,1, 

2  1,0,2,  0,1,2,  1,1,1,  2,1,1,  1,2,1,  1,1,2/ 
C 

C        INITIALIZE  THE  REAL  ARRAYS 
C 

DO  10  I  =  1,60 
KEXP(I)  =  KEXPP(I) 
VKSKI)  =  VKSII  (I) 
10   CONTINUE 
RETURN 
END 
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SUBROUTINE  INITSA(INDIC,G,P) 


c  th:s  subroutine  exists  solely  to  sr  around  a  microsoft 

C  COMPILER  BUS.  ITS  PURPOSE  13  TO  INITIALIZE  THE  ARRAYS 

C  MASSED  AS  ARGUMENTS.  THE  DUMMY  ARRAYS  INDICC,  35,  AND 

C  PP  HAVE  BEEN  GIVEN  THE  ATTRIBUTE  *NOTLARSE,  RND  WILL  BE 

C  INITIALIZED  PROPERLY  BY  THE  COMPILER.  THE  *MOTLflRGE 

C  ATTRIBUTE  IS  ASSIGNED  BY  DEFAULT  SI!£E  THEIR  DIl€NSIONS 

C  DO  NOT  EXCEED  64X  BYTES  CF  STORAGE. 
C 

C  THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  GflLSS, 


IMPLICIT  REAL*8(A-H,0-Z) 

DIMENSION  INDIC  <4),G  (iO),P  CO) 

DIMENSION  INDICC (4), Go ( 10), PP< 10) 
C 

C         HERE  IS  THE  DUMMY  ARRAY  INITIALIZATION 
C 

DATA  INDICC/1,2,4,7/ 

DATA  66/0. ODO,  -. 577350269 18962&D0, .  5773502d91B95£6D0, 
i     -.  77459666924148300, 0.  ODO. .  77459&6S92414B3D0, 

2  -. 861 13631 1594050D0, -. 33996104358486000, 

3  . 339981043584860D0, . 861 13631 1594050D0/ 
DATA  PP/2.  ODO,  1.  ODO,  1.  ODO, 

1  0. 555555555555556D0, 0. 33888838868888900, 0. 55555K5555555&D0, 

2  . 347854845 137450D0, . 652 1451 54862550D0, 

3  . 652145154662550D0, . 3478548*513745000/ 
C 

C         INITIALIZE  THE  REAL  ARRAYS 
C 

DO  10  I  =  1,  4 
INDIC(I)  =  INDICC(I) 
10   CONTINUE 

DO  20  I  =  1,10 
G(I)  =  SG(I) 
P<I)  =  PP(I) 
20   CONTINUE 
RETURN 
END 
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SUBROUTINE  INITBL(TPL,whQ) 


C  THIS  SUBROUTINE  EXISTS  SOLELY  TO  GET  AROUND  A  MICROSOFT 

C  COMPILER  BUG.  ITS  PURPOSE  IS  TO  INITIALIZE  'HE  PRRflY  TBI 

C  PASSED  AS  fiN  ARGUMENT.  THE  DUK*Y  ARRAYS  7BLX  HAVE  BEEN  GIVEN 

C  THE  ATTRIBUTE  $NQTLAR6E,  AND  WILL  BE  INITIALIZED  PROPERLY 

C  BY  THE  COMPILER.  THE  SN07LRRGE  ATTRIBUTE  IS  ASSIGNED  BY 

C  DEFAULT  SINCE  THE  DIMENSION  DOES  NOT  EXCEED  64K  BrES  OF 

C  STORAGE.  TBL  CONTAINS  POINTERS  INTO  THE  WORKING  ARRAY. 
C 

C  THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINE  BLLIND,  BLNLLN, 

C  BLTEMP,  3LVALP,  BLCOOR,  BLCOND,  BLPREL,  BLELEM,  BLSQUI, 

C  AND  SLLINM. 


CHARACTER**  TBL, WHO, CALLER ( iO) , TBL1 ( iO) ,  TBL2 ( 10) , TBL3 I 13) , 

*  TBL4(20),TBL5(  2),TBL6(  £), 

*  TBL7(  2),T3LB(  6>,TBLS<  6),TBL10(8) 
DIMENSION  TBL  (*) 

DATA  CALLER/'  LIND' , '  NLIN' , '  TEMP' , '  VALP' , '  COOR' , '  CDND' , !  PSEL' , 

*  »ELEM',' SOLS', 'LINM'/ 
DATA  NTBLS/iO/ 

C 

C  INITIALIZE  THE  DUMMY  ARRAYS 

C 

C      TBL  ASSIGNMENTS  FOR  SUBROUTINE  BLLIND 

DATA  TBLl/'KBS  ','KGD  ','KGI  ','FS  ','KE  ','FE  ','RES  ','DLE  ', 

*  'EB  ','PB  '/ 
C 

C  TBL  ASSIGNMENTS  FOR  SUBROUTINE  BLNLIN 

DATA  TBL2/'KGS  ','KGD  ','KGI  ','FS    ','KE    ','FE    ','RES  ','DLE  '. 

*  'DLS  ','ME    '/ 
C 

C      TBL  ASSIGNMENTS  FOR  SUBROUTINE  BLTEMP 

DATA  TBL3/'KGS  ','KGD  ','KGI  ','FB  ','KE  ','FE  ','RES', 

*  'DIE  VOLS  VME  ','DLEO','DLGO','FSO  '/ 
C 

C      TBL  ASSIGNMENTS  FOR  SUBROUTINE  BLVALP 

DATA  TBLA/'KGS  ','KGD  ','MGS  ','MGD  ','FG  ','KE  ','FE  '", 

*  'DLE  ','RES  ','DLG  ','P   ','LAtB','LAMi','R   ','PHI  ', 

*  'KSS  ','NSS  ','Vi  ','VX  ','V2  '/ 
C 

C      TBL  ASSIGNMENTS  FOR  SUBROUTINE  BLCOOR 

DATA  TBL5/'C0RG','DLNC'/ 
C 
C     •  TBL  ASSIGNMENTS  FOR  SUBROUTINE  BLCOND 

DATA  TBLEV'NEQ  ','DIMP'/ 
C 
C      TBL  ASSIGNMENTS  FOR  SUBROUTINE  BLPREL 

DATA  TBL7/'PREG','V   '/ 
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c 

-.-'-  ms   -■:   ■ .  m      'i      ii     as       i  . 

: 

:  T3L  ass  razors  :::  ;.:-:        e  :-._:  • 

jt'i  tl.     -=:       •::  :"        •:        '-\        -\\ 

♦    »■£•/ 
: 
: ■JUW*  M  DULOi  H£    : 

■  SI"  UMIU 

::  «-:  ::  :.-..• :  .      muffs] 

5         CONTINUE 

C 

: BWWCH  "D  CDRREI"  BCTIrtJZHTIOi  . 

ma         -  ■   :  -   :   -  -   - 

c 

: >;■  ±::i  ~-t  rea.  -;-:•  ::;  :-._.  : 

10       DO  15  :  -  . 

il  :.  =  ~-l:  : 
a      DBffDK 

RE'-* 
C 

: >r:^:zE  'he  re-_  -'---•  r:;  a.* 

a     aai'i 

nLio  •m2  : 
25     :>~:*je 

rt.rs 
c 

C INITIALIZE  'HE  REA_  ■-•■-     ■--■   3.-EM- 

y.     do  35 :  ■  . 

TBL(I)  =  TBL2'! 
35       CONTINUE 

--:".  ■■■ 
c 

C INITIALIZE  '■€  *i«.  -::-     ::;   5.   '-.'■ 

40        DO  45  I  ■  .    . 

~rL  :     =  TL*  : 
45       CONTINUE 
RE~_RS 


c 

c 

initialize  "he  real  array  for  blcoor 

:■' 

X'  55  I  =  1,2 

TBL(I)  =  TBL5  1 

55 

CONTINUE 

RETURN 

C 

0 

>:-:a_::e  'he  rea.  ::::  :::  elconi 

-:•: 

DO  65  I  =  1,2 
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TBL(I)  =  TBL6U) 
&5   CONTINUE 

RETURN 
C 

C INITIALIZE  THE  SEAL  ARfWY  FOR  BLPRsL 

70   DO  75  I  =  1,2 

TBL(I)  =  TBL7(I) 
75   CONTINUE 

RETURN 
C 

C INITIALIZE  THE  REAL  ARRAY  FOR  BLSLEM 

80   DO  85  I  =  1,6 

TBL(I)  =  TBL8(I) 
85   CONTINUE 

RETURN 
C 

C  INITIALIZE  THE  REAL  RRflftY  FOR  8LS0LR 

90   DO  95  I  =  1,8 

TBL(I)  =  TBL9(I) 
95   CONTINUE 

RETURN 
C 

C INITIALIZE  THE  REAL  ARRAY  FOR  BLUM 

100   DO  105  I  =  1,8 

TBL(I)  =  TBLIO(I) 
105   CONTINUE 

RETURN 

END 


SUBROUTINE  INITP8 ( I P6KED,  WKQ) 


C  THIS  SUBROUTINE  EXISTS  SOLELY  TO  BET  AROUND  A  MICROSOFT 

C  COMPILER  BUG.  ITS  PURPOSE  IS  TO  INITIALIZE  THE  ARRAY 

C  PASSED  AS  AN  ARGUMENT.  7r€  DUMMY  ARRAY  IPGKX  hftS  BEEN 

C  GIVEN  THE  ATTRIBUTE  5N0TLARGE,  AND  WI_^  BE  INITIALIZED 

C  PROPERLY  BY  THE  COMPILER.  THE  SNGTLARGE  ATTRIBUTE  13 

C  ASSIGNED  BY  DEFAULT  SINCE  THE  DIMENSION  DOES  NOT  EXCEED 

C  64K  BYTES  OF  STORAGE. 
C 

C  THIS  SUBROUTINE  IS  CALLED  BY  SUBROUTINES  ELEM01,  ELEM02, 

C  AND  ELEM07. 

C=== = ===========: 


DIMENSION  IPGKED<*),IPGKK3),IPGK2(2),IPGK7<3) 
CHARACTER*4  «HQ,  CALLER  (3) 

DATA  CALLER/'  EL01 V  2-02'  i '  B-07«  / 

DATA  NCLRS/3/ 
C 
C         HERE  IS  T>€   INITIALIZATION  FOR  ELEM01 

DATA  IPGKl/3,3,3/ 
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c 

C         HERE  IS  THE  INITIALIZATION  FOR  E_E*02 

DATA  IPGK2/3, 3/ 
C 
C         HERE  IS  THE  INITIALIZATION  FOR  ELEifO? 

DATA  IP6K7/2,2,2/ 
C 
C DETERMINE  THE  CALLING  ROUTINE 

DO  5  I  =  l.NCLRS 

IF(WHO.EQ.CAl_ER(D)  IPOINT  =  I 
5    CONTINUE 
C 

C BRANCH  TO  CORRECT  INITIALIZATION  -.OOP 

~GOTO UO, 20, 70),  IPOINT 
r 

C         INITIALIZE  IPGKED  FOR  SUBROUTINE  ELE101 
10   DO  15  I  =  1,3 

IPGKED(I)  =  IPGKKI) 
15   CONTINUE 
RETURN 


c 

INITIALIZE  IPGKED  FOR  SUBROUTINE  ElEM02 

20 

DO  25  I  =  1,2 

IPGKED(I)  =  IPGK2H) 

25 

CONTINUE 

RETURN 

C 

C 

INITIALIZE  IPGKED  FOR  SUBROUTINE  ELEM07 

70 

DO  75  I  =  1,3 

IPGKED(I)  =  IPGK7(I) 

75 

.  CONTINUE 

< 

RETURN 

END 
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$LARGE 
(NOFLDflTCflLLS 

SUBROUTINE  ELEMLB (VCORE,  VPRNE,  WzZ,  VDlE,  VKE,  "JrE) 

C    TO  COMPUTE  ELEMENT  INFORMATIONS  FOR  All  TYPES  OF  ELEMENTS 

IMPLICIT  REAL«8(A-H,0-Z) 

COMMGN/RGDT/IEL,  ITPS,NULL(13) 

DIMENSION  VCORE(#),VPRNE(*),V?REE(*),VDLE(*),VKE(*),VrE(*) 

w 

GO  TO  (  10,  20,  30,  40,  50,  50,  70,  30,  90, 100) ,  ITPE 

C ELEMENT  OF  TYPE  1 

10   CALL  ELEM01 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO  TO  900 

C ELEMENT  OF  TYPE  2 

£0   CALL  ELEHOS (VCORE, VPRNE, VPREE. VDLE, VKE, VFE) 

GO  TO  900 

C ELEMENT  OF  TYPE  3 

30   CALL  ELEM03 (VCORE, VPRNE, VPREE,  VDLE,  VKE,  VFE) 

GO  TO  900 

C ELEMENT  OF  TYPE  4 

40   CALL  ELEM04 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO  TO  900 

C ELEMENT  OF  TYPE  5 

50   CALL  ELEM05 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

60  TO  900 

C ELEMENT  OF  TYPE  6 

60   CALL  ELEM06< VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO  TO  900 

c : —  ELEMENT  OF  TYPE  7 

70   CALL  ELEM07 (VCORE,  VPRNE,  VPREE,  VDLE, VKE, VFE) 

GO  TO  900 

C ELEMENT  OF  TCPE  8 

80   CALL  ELEM08 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

50  TO  900 

C ELEMENT  OF  TYPE  9 

90   CALL  ELEM09 (VCORE,  VPRNE, VPREE, VDLE, VKE, VFE) 
"  GO  TO  900 

C ELEMENT  OF  TYPE  10 

100  CALL  ELEM10 (VCORE, VPRNE, VPREE, VDLE, VKE, VFE) 

GO  TO  900 

C OTHER  ELEMENTS 

C         

900      RETURN 

END 
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$LARGE 
SNOFLQATCftlLS 

SUBROUTINE  ELEMOl  (VCDRE,  VPRNE,  VPREE,  VD.Z,  v'KE,  VFE) 

C  QUADRATIC  ELEMENT  FCR  ANISOTROPIC  HARMONIC  PROBLEMS 

C  IN  1,2  OR  3  DIMENSIONS  : 

C  1  DIMENSION:  3  NODES  ELEMENT 

C  2  DIMENSIONS:  8  NODES  ISOPARA*ETRIC  ELEMENT 

C  3  DIMENSIONS:  20  NODES  ISOPARAMETRIC  ELEMENT 

C  NUMBER  OF  INTEGRATION  POINTS  :  2  IN  EACH  DIRECTION 

C  NUMBER  OF  DEGREES  OF  FREEDOM  PER  NODE  :  1 

C  ELEMENT  MATRIX  OR  VECTOR  FORMED  BY  THIS  SUBPROGRAM 

C  ACCORDING  TO  ICODE  VALUE  : 

C  ICODE. EB.1  RETURN  OF  PARAMETERS 

C  ICODE. EQ. 2  EVALUATE  INTERPOLATION  FUNCTIONS  AND 

C  NUMERICAL  INTEGRATION  COEFFICIENTS 

C  ICODE. EQ. 3  ELEMENT  MATRIX  (VHE) 

C  IC0DE.EQ.4  TANGENT  MATRIX  (VKE).... NOT  WRITTEN... 

C  ICODE. EQ. 5  MASS  MATRIX  (VKE) 

C  ICODE. EQ. 6  K.U  PRODUCT  (VFE) 

C  ICODE. EQ. 7  ELEMENT  LOAD  (VFE).... NOT  WRITTEN.... 

C  ICODE. EQ. 8  PRINT  GRADIENTS 

C  ELEMENT  PROPERTIES 

C  VPREE(l)  COEFFICIENT  DX 

C  VPREE (2)  COEFFICIENT  DY 

C  VPREE (3)  COEFFICIENT  DZ 

C  •  VPREE (4)  SPECIFIC  HEAT  CAPACITY  C 


IMPLICIT  REAL*8(A-H,0-Z) 

COMMON/COOR/NDIM, NNULL (3) , FNULL (3) 

COMMCN/RGDT/IEL,  ITPE,  ITPEi,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INSL,  IDES,  IPS 
1  , ICODE, IDLEO,  INELO,  IPSO 

COMMON/ES/M,  MR,  MP,  NDUMMY  (10) 

DIMENSION  VCORE(*),VPRNE(*),VPRE£(*),VDL£(*),,VKE(*),VFE(*) 

C CHARACTERISTIC  DIMENSIONS  QF  THE  ELEMENT 

C        (VALID  UP  TO  3  DIMENSIONS) 

C    DIMENSION  VCPG(IPG),VKPG<NDIM*I?G),XYZ(NDIM) 

DIMENSION  VCPG(  9),VKPG(     27),XYZ(   3) 
C    DIMENSION  VJ  (NDIM+NDIM), VJ1(NDIM*NDIN) 

DIMENSION  VJ  (      9),VJ1(      9) 
C    DIMENSION  VNIX(  INEL*NDIM), VNI  ((1+NDIM)*INEL*IPS),IPSKED(NDIM) 

DIMENSION  VNIXC      60), VNI  (         2160), IPSKED(   2) 

DATA  ZERO/0. DO/, EPS/1.  D-6/ 
C 

C  NUMBER  OF  G. P.  IN  KSI, ETA, DZETA  DIRECTION 

C 

C+++     THIS  IS  COMMENTED  OUT  BECAUSE  OF  THE  *5  FORTRAN  COMP- 
C+++     ILER  BUG  WHICH  WILL  NOT  INITIALIZE  $LARGE  ARRAYS. 
C+++     THIS  ARRAY  IS  NOW  INITIALIZED  BY  A  CALL  TO  A  DUMMY 
C+++     SUBROUTINE  INITPG  WHICH  EXISTS  SOLELY  TO  INITIALIZE 
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C+++  THE  NLflffiER  OF  GAUSS  POINTS  FOR  THE  CALLING  ROUTINE. 

C 

C    DATA  IPGKED/3, 3,3/ 

C 

C       HERE  IS  THE  CALL  TO  SET  AROUND  THE  COMPILER  BUS 

C 

CALL  INITPG(IPGKED,'El01') 
C 

C+++    ALL  OF  THIS  WAS  SOLELY  TO  SET  AROUND  THE  MICROSOFT 
C+++    COMPILER  BUG 
C 

IKE=IDLE*(IDLE+l)/2 
C 

C CHOOSE  FUNCTION  TO  BE  EXECUTED 

C 

SO  TO  (100, £00, 300, 400, 500, 600, 700, 600) , ICODE 
C 

C RETURN  ELEMENT  PARAMETERS  IN  COMMON  ' RSDT' 

C 

100   SO  TO  (110, 120, 130), NDIM 

110   IDLE0=3 

INEL0=3 

IPS0=3 

RETURN 
120   IDL£0=8 

INEL0=8 

IPSO=S 

RETURN 
130   IDLE0=2O 

INEL0=20 

IPG0=27 

RETURN 
C 

C EVALUATE  COORDINATES,  WEIGHTS,  FUNCTIONS  N  AND 

C THEIR  DERIVATIVES  AT  G.  P. 

C 

200   CALL  GAUSS ( IPGKED, NDIM, VKPG, VCPG, I PG) 

CALL  NI01(VKPG,VNI) 

RETURN 
C 

C COMPUTE  ELEMENT  STIFFNESS  MATRIX 

C 

C INITIALIZE  VKE 

300  DO  310  1=1, IKE 

310  VKE(I)=ZERO 

C LOOP  OVER  THE  INTEGRATION  POINTS 

INI=1+IN£L 

DO  330  IG=1,IPG 
C EVALUATE  THE  JACOBIAN  MATRIX,  ITS  INVERSE  AND  ITS  DETERMINANT 

CALL  JACOB (VNK INI ),VCORE, NDIM,  INEL,VJ,VJ1,DETJ) 

IF  (DETJ.LT.EPS)  WRITE  (MP,  2000)  IEL,IG,DETJ 
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2000  FORMAT ( '  ***  ELEM  ' , 15, '  P.S.  ',13,'  DET<J)=»,E12.5) 
C PERFORM  DETJ*WEISHT 

COEF=VCPG(IG)*DETJ 
C EVALUATE  FUNCTIONS  D(NI)/D(X) 

CALL  DNIDX(VNHINI),VJi,NDIM,INEL,VNIX) 
C ACCUMULATE  TERMS  OF  THE  ELEMENT  MATRIX 

IK=0 

DO  320  J=l, IDLE 

DO  320  1*1, J 

11=1 

I2=J 

C=ZERO 

DO  315  IJ=1,NDIM 

C=C+VNIX(I1)*VNIX(I2)*VPREE(IJ) 

I1=I1+IDLE 
315   I2=I2+IDLE 

IK=IK+1 
320   VKE(IX)=VKE(IK)+C*COEF 

C NEXT  G.  P. 

330   INI=INI+(NDIM+1)*INEL 

RETURN 
C 

C EVALUATE  ELEMENT  TANGENT  MATRIX 

C 

400   CONTINUE 

RETURN 
C 

C MASS  .MATRIX 

C 

500   DO  510  1=1, IKE 

510   VKE(I)=ZERO 

IF (VPREE (4).  EQ. ZERO) RETURN 

INI=0 

DO  530  Ifi=l,IPS 
C EVALUATE  THE  JflCCBIflN  MATRIX 

I1=INI+INEL+1 

CALL  JACOB(VNI  (ID,  VCORE,  NDIM,  INEL,  VJ,  VJ1,  DETJ) 
C COMPUTE  THE  WEIGHT 

COEF=VCPG ( IG) *DETJ*VPREE (4) 
C TERMS  OF  THE  MASS  MATRIX 


IK=0 

DO  520  J=l, IDLE 

DO  520  1=1, J 

IK=IK+1 

I1=INI+I 

I2=INI+J 

520   VKE(IK)=VKE<IK)+VNI(I1)*VNHI2)*CDE 
530   INI=INI+(NDIM+i)*INEL 

RETURN 
C 
C EVALUATE  THE  ELEMENT  RESIDUAL 


r 
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c 

600   DO  605  1=1, INEL 
605   VFE(I)=ZERO 

INI=1+INEL 

DO  640  IG=i,IPG 
C EVALUATE  THE  JACOBIAN  MATRIX  AND  THE  DERIVATIVES  OF  N  IN  X,Y, 

CALL  JACOB (VNK INI ) , VCORE, NDIM, INEL, VJ,VJ1,DETJ) 

CALL  DNIDX(VNI  (INI),  VJ1,NDIM,  INEL,  VNIX) 
C COMPUTE  THE  COMMON  COEFFICIENT 

COEF=VCPG(IG)*DETJ 
C VPREE*B*VDLE  PRODUCT 

11=0 

DO  620  I=1,MDI« 

C=ZERO 

DO  610  J=l,  INEL 

11=11+1 
610   C=C+VNIX(I1)*VDLE(J) 
620  VJ(I)=C*COEF*VPRE£(!) 
C (BT)*VJ  PRODUCT 

DO  630  1=1, INEL 

I1=I-IMEL 

DO  630  J=1,NDIM 

I1=I1+INEL 
630   VFE(I)=VFE(I)+VNIX(I1)*VJ(J) 
640   INI=INI+(NDIM+1)*INEL 

RETURN 
C 

C EVALUATE  Ft 

C 

700  CONTINUE 

RETURN 
C 

C EVALUATE  AND  PRINT  GRADIENTS  AT  G.P, 

C 

800  WRITE (MP, 2010)  IEL 

2010  FORMAT (//'  GRADIENTS  IN  ELEMENT  :',I4//> 

IDECL=(NDiM+l)*INEL 

INI0=1 

INI=1+INEL 

DO  830  16=1,  IPG 

CALL  JACOB (VNK INI ),VCORE,NDIM, INEL,VJ,VJ1,DETJ) 

CALL  DNIDX (VNK INI ),VJ1,NDIM,  INEL,  VNIX) 
C EVALUATE  THE  COORDINATES  OF  THE  G.  P. 

DO  803  I=1,NDIM 
803   XYZ(I)=ZERO 

IC=1 

I0=INI0 

DO  807  IN=1,INEL 

C=VNKIO) 

DO  805  I=1,NDIM 

XYZ(I)=XYZ(I)+C*VCORE(IC) 
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805  IC=IO! 
807  10=10+1 
C EVALUATE  THE  BRAOIEMT 

11=0 

DO  820  I=1,NDIM 

C=ZERO 

DO  810  J=l, IDLE 

11=11+1 
810   C=C+VNIX(I1)*VDLE(J) 
820   VJ(I)=C*VPREE(I) 
C PRINT  THE  GRADIENT 

WRITE  (MP,  2020)  IG,  (XYZ(I),  I=1,NDI«) 
2020  FORMAT (5X,'?.G.  :',I3,'  COORDINATES  :,,3E12.5) 

WRITE(MP,2025)(VJ(I),I=i,NDIV) 
2025  FORMAT (15X,' GRADIENTS   :',3E12.5) 

INI0=INI0+IDECL 
830   INI=INI+IDECL 

WRITE  (MP,  2030) 
2030  FORMATf//) 

RETURN 

END 


SUBROUTINE  NI01 (VKPG, VNI) 


C  TO  EVALUATE  THE  INTERPOLATION  FUNCTIONS  AND  THEIR  DERIVATIVES 

C  D(N)/D(KSI)  D(N)/D(ETA)  BY  THE  BBERRL  PN-INVSRSE  METHOD 

C  FOR  1,2  OR  3  DIMENSIONAL  QUADRATIC  ELEMENTS 

C  INPUT 

C  VKPG   COORDINATES  AT  WHICH  N  IS  TO  BE  EVALUATED 

C  IPG    NUMBER  OF  POINTS 

C  INEL   NUMBER  OF  FUNCTIONS  N  (OR  OF  NODES)     INEL.LE.20 

C  NDIM   NUMBER  OF  DIMENSIONS                NDIM.LE.3 

C  OUTPUT 

C  VNI         FUNCTIONS  N  ftND  DERIVATIVES 


IMPLICIT  REAL*8(A-H,0-Z) 

COMMON/COOR/NDIM, NNULL (3) , FNULL (3) 

COMMON/RGDT/IEL,  ITPE,  ITPE1,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDEG,  IPG 
1  , NULL (4) 

COMMON/TRVL/VKSI,  VPN,  VP,  KEXP,  KDER,  Kl 

DIMENSION  VKPG (*), VNI <*) 

DIMENSION  VKSI1(3),KEXP1(3),VKSI2(16),KEXP2(16),VKS:3(60), 
1  KEXP3(60) 
C 

C INFORMATION  TO  DEFINE  THE  3  REFERENCE  ELEMENTS 

C        (INEL.LE.20  NDIM.LE.3) 

C    DIMENSION  VKSI (NDIM*INEL) , KEXP (NDIM*INEL), KDER (NDIM) 

DIMENSION  VKSI (     60), KEXP (     60), KDER (   3) 
C    DIMENSION  VPN  (INEi_*INEL),VP(INEL) 

DIMENSION  VPN  (      400), VP(   20) 
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C    DIMENSION  KHINEL) 

DIMENSION  Kl(   £0) 
C      CHARACTERISTICS  FOR  1,2  AND  3  DIMENSIONAL  REFERENCE  ElE;«EStS 

DATA  IDEGR/2/ 
r 

C+++  THIS  IS  COMMENTED  OUT  BECAUSE  OF  THE  MS  -ORTRAN  CGMP- 

C+++  ILER  BUS  WHICH  WILL  NOT  INITIALIZE  SLARBE  ARRAYS. 

C+++  THESE  ARRAYS  ARE  NCW  INITIALIZED  BY  A  CALL  TO  ft  DUMMY 

C+++  SUBROUTINE  INITN1  WHICH  EXISTS  SOLELY  TO  INITIALIZE 

C+++  THESE  SIX  ARRAYS. 

C 

C    DATA  VKSIl/-l.DO,0.DO,i.D0/,KEXPl/0,l,2/ 

C    DATA  VKSI2/-1. DO, -1. DO,  +0.00,-1. DO,  +1.00,-1.  DO,  +i.DO,+0.D0, 

C   1        +1.D0,+1.D0,  +0.D0, +1.D0,  -l.DO,+l.DO,  -1,00, +0.00/ 

C    DATA  KEXP2/0,0,  1,0,  0,1,  2,0,  1,1,  0,2,  2,1,  1,2/ 

C    DATA  VK3I3/-1.  DO,  -1.  DO,  -1.  DO,  +0.00,-1. 1)0,-1.  DO, 

C   1        +1.00,-1.00,-1.00,  +i.  DO, +0.00,-1.  DO, 

C   2        +1.  DO, +1.00,-1.  DO,  +0.  DO, +1.00,-1.  DO, 

C   3        -1. DO,  +1.00,-1. DO,  -1. DO, +0.00,-1.00, 

C   A        -1. 00,-1.  DO, +0.  DO,  +1.  DO, -1.  DO, +0.00, 

C   5        +l.DO,+i.DO,+O.DO,  -1. DO,  +1- DO,  +0- DO, 

C   6        -l.DO,-l.DO,+l.DO,  +0. 00,-1.  DO, +1.  DO, 

C   7        +1.D0, -l.DO, +1.D0,  +1.00, +0.00, +1.00, 

C   8       +1. DO, +1.00, +1. DO,  +0.  DO,  +1.00,  +1.00, 

C   9        -1. DO, +1. DO, +1.00,  -l.DO,  +0.00,  +1.00/ 

C    DATA  KEXP3/0, 0,0,  1,0,0,  0,1,0,  0,0,1,  1,1,1, 

C   1  1,1,0,  0,1,1,  1,0,1,  2,0,0,  0,2,0,  0,0,2, 

C   2  2,1,0,  2,0,1,  2,1,1,  1,2,0,  0,2,1,  1,2,1, 

C   3  1,0,2,  0,1,2,  1,1,2/ 

C 

C  HERE  IS  THE  CALL  TO  SET  AROUND  THE  MICROSOFT 

C  COMPILER  BUG 

C 

CALL  INITN1 (VKSI1, KEXP1, VKSI2,  KEXP2,  VKSI3,  KEXP3) 
C 

C+++  ALL  OF  THIS  WAS  SIMPLY  TO  SET  AROUND  THE 

C+++  MICROSOFT  COMPILER  BUG 
C 

C 


IDEB=IDEBR 

—  SELECT  TABLES  VKSI  AND  KEXP  ACCORDING  TO  NDIM 
I1=NDIM*IN£L 
DO  5  1=1,11 
GO  TO  (1,2, 3), NDIM 
VKSI(I)=VKSI1(I) 
KEXP(I)=KEXP1(I) 
BO  TO  5 

VKSI(I)=VKSI2<I) 
KEXP(I)=KEXP2(I) 
GO  TO  5 
VKSI(I)=VKSI3(I) 
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KEXP(I)=KEXP3C) 
5    CONTINUE 
C EVALUATE  THE  PN-INVERSE  MATRIX 

CALL  pninv<vksi,kexp,vp.ki,vpn) 

C EVALUATE  N,D(N)/D(KSI),D(N)/D(ETA)  AT  S.P. 

11=1 

12=1 

DO  10  IG=1,IP6 

KDER(1)=0 

KDER<2)=0 

KDER(3)=0 

CALL  NI  (VKPG(Il),  KEXP,  KDER,  VP,  VPN,  VNI  (12)) 

I2=I2+INEL 

KDER(1)=1 

CALL  NI ( VKPG  < 1 1 ) ,  KEXP,  KDER,  VP,  VPN,  VNI  ( 12) ) 

I2=I2+INEL 

IF(NDIM.EQ.l)  SO  TO  10 

KDER(1)=0 

KDER(2)=1 

CALL  NI  ( VKPS  ( 1 1 ) ,  KEXP,  KDER,  VP,  VPN,  VNI  ( 12) ) 

I2=I2+INEL 

IF(NDIM.EQ.2)  80  TO  10 

KDER (2) =0 

KDER(3)=1 

CALL  NI  (VKPS ( 1 1 ) ,  KEXP,  KDER,  VP,  VPN,  VNI  ( 12) ) 

I2=I2+INEL 
10   I1=I1+NDIM 

RETURN 

END 
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SUBROUTINE  ELE«OS(VCORE, VPRNE,  VPREE,  VDLE,  VKE,  vrE) 

C    8  NODES  QUADRATIC  ELEMENT  FOR  £  DIMENSIONAL  ELASTICITY 

C  EVALUATE  ELEMENT  INFORMATIONS  ACCORDING  TC  ICODE  VALUE 

C  ICODE=l  ELEMENT  PARAMETERS 

C  IC0DE=2  INTERPOLATION  FUNCTIONS  AND  SAUSS  COEFFICIENTS 

C  ICODE=3  STIFFNESS  MATRIX 

C  IC0DE=4  TANGENT  MATRIX  ...  NOT  WRITTEN  ... 

C  IC0DE=5  MASS  MATRIX 

C'  ICODE=6  RESIDUALS 

C  IC0DE=7  SECOND  MEMBER 

C  IC0DE=8  EVALUATE  AND  PRINT  STRESSES 

C  ELEMENT  PROPERTIES 

C  VPREE(l)  YOUNG'S  MODULUS 

C  VPREE(2)  POISSON'S  COEFFICIENT 

C  VPREE(3)  .EQ.O  PLANE  STRESS 

C  .ED.  1  PLANE  STRAIN 

C  VPREE(A)  SPECIFIC  MASS 


IMPLICIT  REAL*8(A-H,0-Z) 

COMMON/COOR/NDIM, NNULL (3) , FNULL (3) 

COMMON/ASSE/NSYN, MFILLR(3) 

COMMON/RGDT/IEL,  ITPE,  ITPEi,  IGRE,  IDLE,  ICE,  IPRNE,  IPREE,  INEL,  IDES,  IPS 
1  ,  ICODE,  IDLEO,INELO,  IPSO 

COMMON/ES/M,  MR,  MP,  MDUMMY  ( 10) 

DIMENSION  VCORE(*),VPRNE(*),VPREE(*),VDLE(*),VKE(*),VFE(*) 

C CHARACTERISTIC  DIMENSIONS  OF  THE  ELEMENT 

C    DIMENSION  VCPG(     IP6),VKPG<NDIM*IP6),VDEHIKATD**2) 

DIMENSION  VCPG(  9),VKPG<  18),VDE1(  9) 

C         DIMENSION  VBE  (IMATD*IDLE),VDE  (IMATD**2),VJ  [NDIJW«DIN),VJi(NDIN 

DIMENSION  VBE  (  48),VDE  (  9),VJ  <  4),VJ1(4) 

C         DIMENSION  VNIX(  INEL*NDIM),VNI   (d+NDIM)*INEL*IP6), IPGKED(NDI«) 

DIMENSION  VNIX(  16),VNI  (  216),IPGKED<      2) 


DATA  ZERO/0. DO/, DEUX/2. DO/, X05/0. 5D0/, RADN/. 5729577951 30823D2/ 

DATA  EPS/l.D-6/ 

SQRT(X)=DSQRT(X) 

ATAN2(X,Y)=DATAN2(X,Y) 
C      DIMENSION  OF  MATRIX  D 

DATA  IMATD/3/ 
C 

C++*     THIS  IS  COMMENTED  OUT  BECAUSE  OF  THE  MS  FORTRAN  COMO- 
C+++     ILER  BUG  WHICH  WILL  NOT  INITIALIZE  *LARGE  ARRAYS. 
C+++     THIS  ARRAY  IS  NOW  INITIALIZED  BY  A  CALL  TO  A  DUMMY 
C+++     SUBROUTINE  INITPG  WHICH  EXISTS  SOLELY  TO  INITIALIZE 
C+++     THE  NUMBER  OF  GAUSS  POINTS  FOR  THE  CALLING  ROUTINE. 
C 

C    DATA  IPGKED/3,3/ 
C 
C      HERE  IS  THE  CALL  TO  GET  AROUND  THE  COMPILER  BUG 
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c 

CALL  IJiITPG<:P6O,'EL02») 

c 

C**+     ALL  GF  THIS  WAS  SGLE^Y  TO  BET  ARGUND  THE  yiCRCSGF' 
C+++     CG>PI_ER  BL3 

c 

C CHOOSE  FUNCTION  TO  BE  EXECUTED 

P 

w 

SO  "TG  ( 100, 200, 300, 400, 500, 600, 700, 300) ,  ICQDE 

n 

C RETURN  ELEMENr  PARAHETERS  IN  CQWON  'RGDT' 

C 

100   I0LEO=16 

INEL0=8 

1=30-9 

C    RETURN 

p 

w 

C EVALUATE  COORDINATES,  WEIGHTS,  -UNCTIONS  N  AND  THEIR 

C DERIVATIVES  AT  3. P. 

C 

200   CALL  GAUSS !  I  POKED,  IfflIM,  VKPS,  VCP6, 1  PS) 

•FUUT.2)  EQ  TO  £20 

WRITE WP,2000)  IPS 
3000    FORMTt/IS,'     3AUSS  POINTS' /10X,'VCPG',25X,'VK=S') 

10=1 

DO  210  13=1, IPS 

Il=IO+NDIf-i 

WRITE  (MP,  2010)  VCPG(IS),(VKPB(I),I=IO,ID 
210   IO=IO+NDIM 

2010  ~DRMAT(1X,F20. 15,5X,3F20. 15) 
220   CALL  NI02(VKPG,VNI) 

IFW.LT.  2)  RETURN 

I1=3*INEl*IPS 

WRITER,  2020)  (VNI(I),I=1,I1) 
2020  FORMAT*/'  FUNCTIONS  N  AND  DERIVATIVES'/  UX,SE12.5)) 

RETURN 
C 
p EVALUATE  ELEMENT  STIFFNESS  MATRIX 


r- 

u 


INITIALIZE  VKE 


300   DO  310  1=1, 136 

310   VKE(I)=ZERC 

C FORM  MATRIX  D 

CAL1.  D02fVPSEE,VDE) 

IFW.SE.2)  WRITE  (MP,  2030)  (VDE(I),  1=1,9) 
2030  FORMAT (/'  MATRIX  D'/1X,9E12.5) 
C LOOP  OVER  THE  3.  P. 

II=1+INEL 

DO  330  IG=1, IPS 
C EVALUATE  THE  JPCC3IAN,  ITS  INVERSE  AND  ITS  DETERMINANT 

CALL  JACOB (VNK ID, VC0RE,NDIN,INEL,VJ,VJ1,DETJ) 
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;mde~j.lt.e^si  write (*ip, £040)  iel,:s,detj 

20-0    FGRMSTi'  ***  ELE*  ',15,'  G.P.  ',13,'  DEI  (J)  =',£12. 5) 

Ic;r.GE.£:  WRITE  (*P,  2050)  VJ,VJ1,DETJ 
2050    FORMAT*/'  JACGBISN=* ,4E12.5  /  '  J  INVERS=' ,  4E12. 5/'  DETJ=',Ei2.5) 

r DEFORM  D*CDEF 

'  C=VCPS(IS)#DETJ 
DD  320  1=1,9 
320      vD£l tI}=VDEcI)*C 

c :2?»  wnn  3 

CALL  DSIDX  (VNI  (ID ,  VJ1,  NDI«,  INEL,  VNIX) 

Ir(*.G2.£)  WRITE  (MP,  2060)  (WIX(I),I=1,16) 
2060  FQRKfiTt/'  VNIX'/<iX,BE12.5)) 

CALL  30£(VMZX, INEL,VBEi 

IF IV.. BE. 2)  i*RITE(MP.2070)  (VBEU),  1=1,48) 
2070  FQRMATt/1  MATRIX  B'/(1X,  10E12.5)) 

CALL  BTDB  (VRE,  VBE,  VDE1,  IDLE,  IMATD.  NSYX) 
330   I1=I1+3*INSL 

RETURN 
C 
C EVALUATE  THE  ELEMENT  TANGENT  MATRIX 

n 
U 

400      CONTINUE 

RETURN 
C 

3 EVALUATE  THE  MASS  MATRIX 

C 

500   DO  510  1=1, 136 

510   VKE(I)=ZERO 

C LQQ3  OVER  THE  G.  P. 

IDIMi=NDIM-i 

IDECL=<NDIM+D*I!€L 

Ii=l+INEL 

12=0 

DO  550  15=1, IPS 

CALL  JACOB  (VNI  (ID,  VCORE,  N'BIM,  INEL,  VJ,  VJ1,  DETJ) 

D=VCPS(I6)*DETJ*VPREE(4) 
C ACQjMULATE  MASS  TERMS 

IDL=0 

DO  540  J=l, INEL 

J0=l+IDL*(IDL+D/2 

DO  530  1=1,  J 

11=12+1 

C=VNI(II)*VNI(JJ)*D 

VKE(JO)=VKE(JO)+C 

:F(NDIM.E3.D  SO  TO  530 

Jl=J0+IDL+2 

DO  520  II=1,IDIM1 

VKE(JD=VKE(JD+C 
520      J1=J1+J1+1 
530      JO=JO+NDIM 
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3«o  idl=:d:_+sdim 

530   :2=:2+:DECL 
RETURN 


EVALUATE  THE  E_E*ENr  RESIDUAL 


FOR*  MATRIX  D 


SCO   CALL  D02(VPREE,VBE) 

Z INITIALIZE  THE  RESIDUAL  VEC'C^ 

DO  610  ID=1,IDL£ 
610   V*rECD)=ZERO 
C LOOP  OVER  THE  S.  ?. 

I1=1+INEL 

DO  540  IG=1, IPG 
C EVPLUfl'E  THE  JACQBIAN 

CALL  JflCCB<VN:(::).VCOR£,N:DIM,  INEL,VJ,  VJi.DETJ) 
C EVALUATE  FUNCTIONS  D(NI)/D(X) 

CALL  DNIDX(VNI(Ii),VJi,NDI!»!,INELVNn) 
C EVALUATE  STRAINS  AND  STRESSES 

EPSX=ZERO 

E?SY=Z2RQ 

SA*XY=ZERQ 

ID»I 

DO  620  IN=ifINEL 

liS^VDLE(ID) 

VN=VDLE<ID+1) 

C:=WX<IN) 

IN1=IN+IKEL 

C2=VNIX(IN1) 

EPSX=EPSX+C1«UN 

E33Y=E?SY*C2*VN 

Gfi^Y=SA}*XY*Cl*V!W2*UN 
£20   ID=ID+2 

31=VCP3(IG)*DETJ 

C2=VDE(2)«Ci 

S3=VDE(9)*C1 

Cl=VDE(i)«Cl 

SISX=C1*£PSX+C2*EPBY 

3IGY=C2*EPSX+Ci#EPSY 

TAUXY=C3*6AHXY 
-■ FOR«  THE  RESIDUAL 

DO  830  IN=i,INEL 

C1=VNIX(IN) 

IM1=IN+INEL 

C£=VNIXCN1) 

VFE ! ID) =VFE ( ID)+C1*SI6X+C2*TAUXY 

VFE ( ID+1 ) =VFE ( ID+i ) +C2*SIGY+C1*TAUXY 
B30   !D=ID+2 
640   I1=I1+3*INEL 
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RETURN 

: EVALUATE  VQLIMC  FORCES,  FX,FY  PER  UNIT  VOLUME 

C       (  pOR  BRflVITY  FX=0  FY=-VPREE(4)  ) 

C 

700   FX=ZERO 

FY=-VPREE<4> 

DO  710  1=1,  IS 
710   VFE(I)=ZSRO 

11=1 

IDECL=(NDIM+1)*INEL 

DO  730  18=1,  IPS 

CffiLL  JACCB<VNI ( I 1+INEL) , VCCRE, MDIM, INE_, VJ, VJ1, DE~J)  ■ 

DX=VCPS(IG)*DETJ 

DY=DX*FY 

DX=DX*FX 

12=11 

13=1 

DO  720  IN-1, INEL 

VFE(I3)=VFE(I3)+DX*VNI(I2) 

VF E ( 13+1 ) =VFE ( 13+1 ) +DY*VNI (12) 

720   13=13+2 

730   I1=I1+IDECL 

RETURN 

C 

C EVALUATE  AND  PRINT  STRESSES  AT  6.  ?. 

r 

800  HSITE(MP,2080)  IEL 

2080  FORMAT*//'  STRESSES  IN  ELEMENT  ',15/ 

1  '  P.8.',7X,'X',llX,'Y',9X,'E?SX',8X,'EPSY,,7X,,Gfl«XY',8X,'SIBX', 

2  8X,'SIGY',7X.'TAUXY',8X,'TETfi'/  7iX  ,  'SIS1'.8X,'SIS2',7X, 'TAUMflX' 

3  /) 

C FORM  THE  MATRIX  D 

CALL  D02fVPREE,VDE) 
C LOOP  OVER  THE  S.  P. 

I:=1+IN£L 

12=0 

DO  820  IS=i,IPS 

c Evaluate  the  j acqs i an 

CflLL  JACOB  (VNI  (ID,  VCCRE,  NDIM,  INEL,  VJ,  VJ1,  DETJ) 
C EVALUATE  FUNCTIONS  D(NI)/D(X) 

CALL  DMiDX(VNI(Iii,VJl,ND^,INEL,VMIX) 
C COMPUTE  STRAINS  AND  COORDINATES  AT  G.  P. 

E?SX=ZZRO 

EPSY=ZERC 

SAHXY=Z£RO 

X=ZERO 

Y=ZERO 

;d=i 

dc  810  in=1,  inel 
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J\=VDLE!:D) 
W=WLE(JD+i) 
XNsVCORE(ID) 
ft=VCQ8EUlM) 

C:=vmx(I\) 

:\:=:\+:nel 

C£=VNIX(IN1) 

C3=v'viiINl) 

£?3X=E°SX+C1*UN 

E?SY=EP5Y+C£*VN 

iCMxy=g5^xY+Ci*VM+C£*L;N 

X=X+C3*XN 

Y=Y+C3*YN 
310   ID=ID+2 
: COMPUTE  THE  STRESSES 

S!GX=VDE<1)«EPSX+VDE(S)*EPSY 

SISY=VDE (2) *EPSX+VDE ( 1 ) *EPSY 

TfiUXY=VDE(9)*Gfi,W 
C COMPUTE  THE  ^IMCIPflL  STRESSES 

TETflsflTfW2(DEUX#TfiUXY,SieX-SIBY)iX05 

TETA=TETfl*RflDN 

Ci*<SISX+SISY)*X05 

C2=<SIGX-S:SY)*X05 

TP.UKQX=SGRT  (C2#C2+TfiUXY*TPUXY) 

SIBl=Cl+TflU«ftX 

3IS2=Cl-TftUKftX 

^ITEtKP, £090)  IG,  X,  Y,  EPSX,  EPSY,  SflHXY,  SIGX,  SIBY,  T«WXY, 
i    TETfi,SIGi,SIG2,TfiU»£X 
£090    "DMT !  IX,  15,  SE12. 5, 5X,  F5. 1/66X,  3E12.  5) 

I2=I2+3*INEL 
S20      n=II+3»INEL 

RETURN 

END 
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SJB.IOUTINE  NI02(VKPS,VN'} 


C  "0  EVftLUPJE  THE  INTERPOLATION  FUNCTIONS  N  AND  THEIR  DERIVPrIVES 

C  D(\)/D(KSI)  AND  D(N!/D(ETA)  2Y  BENESAL  PN-INVSRSS  METHOD 

C  INPUT 

:       VKPS   COORDINATES  Ar  WHICH  N  IS  TO  BE  EVALUAT£D 

c     ipg   number  of  points 

C  I.MEL  NUMBER  OF  FUNCTIONS  N  (OR  OF  NODES)    ZNEL.SG.S 

C  NBiM  NUMBER  OF  DIMENSIONS              NDIM.EQ.2 

C  OU"U" 

C  VNI  FUNCTIONS  N  AND  DERIVATIVES 

IMPLICIT  REAL*8(A-H,C-Z) 
COMMON/CBGR/NOIN,  NNULL (3) ,  FNULL (2) 

CQMM0N/R6DT/ISL,  ITPE,  ITPE1,  ISRE,  IDLE,  ICE,  IPRNE,  PR2E,  INSL,  IDES,  IPS 
2  ,NULLM) 

CONMON/TRVL/VKSI, VPN,  VP,  KEXP,  KDER,  Ki,  RNUlL (420) ,  INULL 
DIMENSION  VKPS <*), VNI <#) 

0 INFORMATIONS  RELATED  TO  THE  a  NODES  REFERENCE  SCLARE  ELEMENT 

C       (INEL.EQ.fl  NDIM.EQ.2) 

C    DIMENSION  VKSI(NDIM*INEL),KEXP(iWIM*IN&},XDE8(NDIM) 

DIMENSION  VKSK     lb),KEXP(     16),KDER<   S) 
C    DIMENSION  VPN  (INEL*IN£L),VPiINEJ,Kl (INEL) 

DIMENSION  VPN  i  645, VP(   8),K1(   3) 

C 

C      ^DAL  COORDINATES  OF  the  RE-ERENCE  E_E>!ENt 

r 

DATfl  IDESR/S/ 

r 

C+++  THIS  IS  COMMENTED  OuT  BECAUSE  OF  "HE  MS  FORTRAN  COMP- 

C+++  ILER  BUG  WHICH  WILL  NOT  INITIhLIZE  $LARSE  ARRAYS. 

C*++  THESE  ARRAYS  ARE  NOW  INITIALIZED  BY  A  CALL  TO  A  DUMMY 

C+++  SUBROUTINE  INITNi  WHICH  EXISTS  SOLELY  TO  INITIALIZE 

Ct*+  THESE  TWO  ARRAYS. 

C 

C    DP"A  VKSIM.DO,-i.DO,  *O.DO,-1.DO,  +I.DO,-i.DO,  +l.BO,+Q.DQ, 

c  i     +i.do,+i.do,  +o.do,+i.do,  -i.do,+i.do.  -i.do,+o.do/ 

C      MONOMIAL  EXPGNENTS  OF  THE  POLYNOMIAL  BASIS,  MAX-DEGREE 
C    DfiTfi  XEXB/0,0,  1,0,  0,1,  2,0,  1,1,  0.2,  2,1,  1.2/ 

L 

C       HERE  IS  T^E  CALL  TO  GET  SRGUND  "HE  MICROSOFT 
C       COMPILER  BUG 

CALL  INITN2(VKSI,KEXP) 

r 

C+++  0L_  OF  THIS  HAS  BEEN  TO  GET  AROUND  T^ 

C+++  COOLER  BUG. 


IDES=IDEGR 
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C EVALUATE  THE  PN-INVERSE  y?~:X 

CALL  PNINV  (VKSI,  HEX*.  VP,  Kl, VPN) 
: EVALUATE  N,i)<N)/D(KSI),D(N)/D(E7A)  AT  B.P. 

11=1 

DO  10  18=1,  IP3 
KDER(D=0 
KDER(2)=0 

CALL  NZ  (VKPS (ID , KEXP,  KDER,  VP, VPN, VNI 1 12) ) 
I£=I2+INEL 
KDERHM 

CAlL  «!(VKPB(Il),X£XP,KO£R,VP,VPN,VNI(ia)) 
I2=I2+INEL 
KDERU)sO 
KDER(£)=i 

CALL  « (VKPG (ID ,  KEXP,  KDE3,  VP,  VPN, VNI  ( 12) ) 
I2=I2+ML 
10        Ilali+NDIM 
RETURN 
END 
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BUBSOUTIJC  D02  (VP3EE,  VDE) 


:g  for*  *rtrix  d  (2  dimensional  Elasticity) 
input 
vpree  element  properties 

VPREEvi)   YOUNS'S  MGDULLS 
V3REE<2)   PCISSOM'S  CGE--ICIEN7 
V3REE<3;  .ECO  PLANE  STRESSES 
.  ES.  1  PLANE  STRAINS 

•Ju '.  .-w  I 

VDE    *fiTRIX  S  (FULL) 


IMPLICIT  RE3L*3(A-H,C-Z) 

DIMENSICN  V'PREE;*),VDE!5) 

DATh  ZERG/O.  DO/,  UN/1.  DO/,  DEUX/2-  DO/ 

E=VPREE(i) 

X=VP<EE<2) 

B=VPREE(3) 

Cl=S*('JN-R*X)/<  (UN+X)*'.UN-X-fl*X) ) 

C£=C1*X/!jN-A*X) 

C3=E/(DE;JX*«LiN+X)) 

VDEC)=C1 

>/DE(2)=C2 

vDS<3)=ZER0 

vDE(4)=C£ 

VDE(5)=C1 

IZz.  !q/-Z-RG 

VDE(7)=ZER0 

VDE!3)=ZERQ 

VDE0)=C3 

RE~LR^ 

END 


275 


SUBROUTINE  B02(VNIX,INSL,VBE) 

^__ _-._—._—_—_._—_—»_____——_ ,.     ,..-,■-■-—..-.       ...      ....-■■,      .-■■■■■-■■■- 

O 

C         Tn  fork  vftTHIX  B  (2  DHOSIQNAL  ELASTICITY) 

p  fimtr 

:  VNIX  DERIVATIVES  OF  INTERPOLATION  FUNCTIONS  W.R.T.  X,Y,Z 

C  IXEi.  NUMBER  OF  INTERPOLATION  FUNCTIONS 

C  OUTPUT 

C  VBE  KATRIX  3 

IMPLICIT  REfiL*3(P.-K,0-Z) 
DIMENSION  VO!IKEL,*!,VBE(3,*> 
2373  ZERO/O. DO/ 

DO  10  I=1,INEL 

c:=vnix(I,i) 

D2=VNIX(I,2) 

VBEfl,J)=Cl 

v3E',:,j+!>=zerq 

v'BE(2,J)=ZER0 
VBE{2,J+1)=C2 
VBE(3,J)=C2 
•/'5E-3,  J+1?=C1 

:c  :=:+2 

RETURN 
END 
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i.BRCUTINE  BTDB(VK£,  v'BE,  VDE,  IDLE,  I*ATI},  *SYY) 


C= 
r 

C 


L 
r 


TO  ADD  THE  PRODUCT  BiT).D. 3  TO  VKE 
INPUT 

VKE    ELEMENT  *ATRIX  NON  SYMMETRICAL  (NSYM.ES.1) 

SYMMETRICAL  (NSYM.ES.O) 

VcE    MATRIX  B 

VDE    MATRIX  D  (FULL) 

IDLE   TOTAL  NUMBER  OF  D.O.F.  PER  E'_E*E.NT 

IMATD   DIMENSION  OF  MATRIX  D  (MAX.  6) 
OUTPUT 

VKE 


IMPLICIT  REfiL*8ifi-H,C-Z5 

DIMENSION  VKEv'*),VBE(IMAT),*),VDE!I>ifi'D,*),T(6) 

DP'A  ZERG/O.DO/ 


20 


SJ 


40 


IMAX=IDLE 

DO  40  J=i,IDLE 
DC  20  11=1, IMATD 

0=ZERO 

do  10  j1=1,imatb 
c=c+vde(ii,j:)*v3E(ji,J) 

T(I1)=C 

:f(nsym.eq.o)  ihax=j 

DG  40  1=1, IMAX 

C=ZERQ 

DG  30  Jl=i,  IMfiTD 

:=c+vBe;ji,i)*T{ji) 

vke(ij)=vke(ij)+c 

u=ij+i 

RETURN 
END 
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